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Les premiers PC 1512 sont apparus un peu avant Noël dans les vitrines et, déjà quelques heureux élus disposent 
d'une machine. C'est l'occasion ou jamais de commencer à développer du logiciel en profitant des possibilités 
exceptionnelles offertes par le BASIC de cette machine. CPC ouvrira largement ses colonnes aux amateurs de 
logiciels de qualité. Parallèlement à cela, les Editions SORACOM lancent un nouveau titre : PCompatible Maga- 
zine, entièrement dédié aux compatibles IBM. Bien entendu, le PC 1512 y trouvera sa place. 

Enfin, 1987 semble s’annoncer comme l’année du ‘‘Personal Publishing” ; des logiciels vont apparaître permet- 
tant à chacun de réaliser sa petite revue... Dans ce domaine, CPC réserve une surprise de taille à ses lecteurs : 


vous ne devriez pas être déçus ! 
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Un faux compatible est un poison! 
voici l’antidote : 








Ta MEMOIRE, 

Ton TURBO, 

Ton DOS +, ton GEM, 

Ton TURBO-PASCAL, 

Ton PRIX .… JE CRAQUE! 


À 







o 


NX 





HILL] JASMIN 


ñ à i 
8 

Ê 

F 

a 


FRAN 


Stè T.R.A.N. - Impasse Lavoisier - Z.I. Les Fourches - Les Espaluns 1 


83160 LA VALETTE - Tél. 94.21.19.68 | 


COMMENT CHOISIR UN COMPATIBLE PC 


Des compatibles partout 


De nombreux constructeurs asiatiques et même fran- 
çais proposent des compatibles PC à des prix très 
accessibles. 

Les Jasmins Turbo par exemple se vendent aussi en 
grande surface comme des produits de consommation 
courante. 

Toutefois, la grande variété des prix et configura- 
tions, ainsi que les différents niveaux de compatibilité 
posent à l'acheteur non averti un problème de choix. 

Voici quelques critères qui vous permettront de défi- 
nir le type de matériel le mieux adapté à vos besoins. 


Compatibilité soft 

Tout logiciel écrit pour le standart IBM PC, tant qu'il 
n'est pas protégé pour l'exclusivité d'une marque d'ordi- 
nateur donnée, doit tourner complètement sans aucun 
problème avec la version du système d'exploitation cor- 
respondant, comme MS DOS, DOS PLUS, PROLOG, 
etc... 


Compatibilité hard 

L'intérêt du PC est d'être un système ouvert. Il doit 
être possible de rajouter n'importe quelle carte électroni- 
que conçue pour le standard : cartes graphiques couleur 
haute résolution EGA, contrôleurs de disque dur, contrô- 
leur d'unité de sauvegarde, carte d'entrées/sorties, carte 
de communication, ou encore, une carte d’analyseur logi- 
que pourquoi pas. 

Encore faut-il vérifier que l'on dispose de la place 
nécessaire pour installer ces cartes. 

Les écarts entre les connecteurs d'extention sont nor- 
malisés mais certaines cartes trop épaisses prennent la 
place de deux connecteurs. Il sera bon de s'assurer qu'il 
est possible de disposer d'au moins cinq connecteurs 
libres. Prévoir par carte un emplacement de 34x12 cm pour 
une épaisseur de 2 cm. 


Turbo 

La vitesse de l'IBM PC est de 4,77 MHz. Il existe 
maintenant des PC appelés « TURBO », qui tournent à 
8 MHz. Ces derniers permettent d'obtenir des performan- 
ces d'environ 1,5 fois supérieur en vitesse à l'IBM PC. Afin 
de conserver une réelle compatibilité, vérifiez que votre 
Turbo fonctionne également en 4,77 MHz. Ces deux vites- 
ses doivent être commutables au clavier. 


Carte mère : 

La carte mère est le cœur du système. De plus en 
plus la complexité des logiciels réclame de la mémoire. 
En particulier des logiciels intégrés professionnels. 512 K 
RAM sont très souvent insuffisants. Si vos finances vous 
le permettent optez dès le départ pour la capacité maxi- 
male soit 640 K. Une extention ultérieure serait plus 
onéreuse. 

Ilest bon de savoir qu'il est possible d'augmenter de 
façon notable la vitesse de calcul de votre micro par 
adjonction d’un coprocesseur arithmétique. 8087. Aussi 
si vous pensez en avoir besoin, choisissez une carte mère 
possédant un emplacement prévu pour ce circuit. 


Alimentation : 

Le point faible de la plupart des micros réside dans 
l'alimentation. L'alimentation classique d'un PC est d'au 
moins 135 W. Si vous souhaitez utiliser votre PC plus 
d'une heure par jour, assurez-vous de l'efficacité de sa 
ventilation, de même que de la possibilité d'augmenter 
la puissance de l'alimentation par simple échange. 

Une alimentation de 150 W sera préférable surtout 
si vous envisagez le rajout de cartes d'extention, ou 
encore l'utilisation d'un disque dur. 


Boîtier 

Un micro est sensible aux perturbations électriques. 
Si vous voulez éviter qu'il se « plante » (orages, néons) 
portez votre choix sur un boîtier métallique permettant de 
préférence un accès aisé à vos cartes électroniques. Les 
boîtiers appelé « Flip-Top » sont encore le plus pratiques. 
Ils permettent une ouverture rapide par simple pression, 
à la façon d'un capot d'automobile. 


Moniteur 

L'intérêt et le succès du PC sont dus à sa concep- 
tion très évolutive. Vous débuterez peut-être dans la micro 
par des jeux, mais les possibilités de votre PC peuvent 
rapidement vous conduire dans le domaine des applica- 
tions professionnelles, tel le dessin assisté par ordinateur. 
Chaque application nécessite une définition d'écran 
appropriée. Assurez-vous qu'il vous est possible de chan- 
ger d'écran facilement en fonction de vos besoins. 


Clavier : 

Attention, le PC n'est pas dans le clavier ! Un cla- 
vier à curseur séparé, vous sera peut-être utile par la suite. 
Vous devez pouvoir changer de clavier à votre conve- 
nance. Pour cela, il vous faut un clavier aux normes de 
connection IBM. 


La souris 

Il'existe de nombreuses qualités de souris dont les 
prix varient de 200 F à 2.000 F. 

La qualité d'une souris, réside dans sa sensibilité, sa 
résolution, sa course. La précision doit être bonne sur une 
petite course. Il doit être possible de balayer l'écran sans 
avoir à balayer tout le bureau. 

Attention, certains logiciels nécessitent l'emploi de 
trois touches sur la souris. 


Un PC non évolutif ne sera jamais un PC 
M. Michel ROY 





LES COMPATIBLES PC LES PLUS VENDUS 
LES JASMINS TURBO HQ TELEMATIQUES 


HQ pour Haute Qualité. Chaque modèle est équipé 
d'office d'une carte turbo double vitesse 8 MHz et 4,77 
MHz commutable au clavier, indispensable pour une vraie 
compatibilité. De la carte CGA : 16 couleurs/graphique 
avec une sortie vidéo composite couleur, une sortie vidéo 
Net B, une sortie RVBI, une interface crayon optique. 
La carte multi 1/0 comprend deux ports série dont un 
équipé. Une interface imprimante parallèle Centronic, une 
entrée manette de jeu, une horloge/calendrier permanent 
sauvegardée par batterie, un contrôleur pour deux lecteurs 
de disquette. 


Clavier AZERTI aux normes IBM avec indicateurs 
lumineux. 


Souris trois touches JASMIN Mouse de haute pré- 
cision et faible course. 


Boîtier métallique « FLIP TOP ». Alimentation 150 W, 


ventilé intégrée dans l'unité centrale, ce qui permet une 
évolution sans soucis de la configuration du système. 


Carte-mère équipée d'office de 640 K RAM, du 
microprocesseur 8088-2, d'un emplacement prévu pour 
le coprocesseur arithmétique 8087 et de 8 ports d'exten- 
sion à connecteurs longs. 


Où trouver les JASMIN TURBO ? 


Chaque JASMIN Turbo est accompagné du système 
d'exploitation DOS PLUS, de DIGITAL RESEARCH INC., 
compatible avec le système MS.DOS 2-11 et CP/M 86 
qui rend possible les transferts de fichiers entre les deux 
standards. 


Du système d'exploitation d'environnement graphi- 
que G.E.M. de DRI qui permet au JASMIN Turbo d'utili- 
ser toute application écrite sous GEM disponible sur le 
marché. Par exemple le GEM-DESKTOP (pour bureaux) 
permet d'utiliser le JASMIN avec des icônes comme un 
MACINTOSH. Convivialité oblige ! 


Du langage structuré le plus vendu au monde : 
TURBO/PASCAL de BORLAND avec son manuel, ainsi 
que du logiciel MASTER MIN qui transforme le JASMIN 
connecté à un Minitel en serveur VIDEOTEX monovoie. 


Tous les logiciels ludiques et professionnels « tour- 
nent sur les JASMINS Turbo HQ ». 


Le modèle HQ-2 est équipé de deux lecteurs 51/4. 

Le modèle HQ-20 est équipé d’un lecteur 5”1/4 et 
d'un disque dur 20 MB rapide (65 m/s) avec parkage de 
tête automatique. 


TARIF AU 1e FEVRIER 1987 


Sans moniteur Avec moniteur Avec moniteur 


mono 12" couleur 14 
HQ-2 6.483,97 HT 7.242,83HT 8.999,16 HT 
HQ-20 10.615,51 HT 11.374,36 HT 13.145,03 HT 
Moniteur monochrome 12" + câble....... 834,74 HT 
Moniteur couleur 14” + câble.......... 2.613,83 HT 
Imprimante qualité courrier CITIZEN 120D, 
120 0pS 80 COL es srens aus tes 2.099,49 HT 
Imprimante qualité courrier plate 
type BROTHER ou CENTRONIC 180 cps, 
136 col. grand chariot.................. 4.207,42 HT 
JASMIN Mouse, souris trois touches 
haute précision. ......................... 674,54 HT 


Toutes ces imprimantes sont compatibles IBM. 

Le tarif ventes diverses est envoyé avec la 
documentation. 

Des logiciels professionnels pour comptabilité, fac- 
turation, gestion sont disponibles. Téléphoner à T.R.A.N. 
pour renseignements complémentaires. 





Je désire recevoir une documentation complète, 
tarifs, liste revendeurs, sur la gamme 
JASMIN TURBO HQ. 
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ACTUALITÉS 


BIENVENUE AU NOUVEAU-NE ! 


PCompatibles Magazine, c'est 

son titre. Le lecteur, possesseur 

d'un ordinateur compatible IBM, 
y trouvera tout ce qui le passionne : nou- 
veautés, actualités, rubriques d'initiation 
ou de perfectionnement, trucs et astu- 
ces, programmes, … 
Ce nouveau mensuel a pour but de per- 
mettre à l'utilisateur d'un compatible IBM 
de comprendre comment fonctionne sa 
machine. À la charnière entre les milieux 
professionnel et amateur, PCompatibles 
Magazine apportera, dès le 15 février, la 
réponse à toutes les questions que vous 
vous posez. 
PCompatibles Magazine est une nou- 
veauté des Editions SORACOM : un gage 
de qualité ! 
Abonnement : 200 F pour 11 numéros. 


ILS ONT DISPARU ! 


Ilest toujours triste de voir dispa- 

raître un journal où une revue... 

Des lecteurs ont attiré notre 
attention sur l'absence en kiosques, 
depuis le début de l’année, d'Hebdogi- 
ciel et d'Amstradhebdo. Ces deux heb- 
domadaires, bien que se contredisant 
parfois sur le sujet AMSTRAD, étaient 
réalisés par Shift Editions. 
Tout en étant concurrent sur ce même 
créneau, nous ne pouvons que regretter 
la disparition de nos confrères. 


L'UAP CHOISIT VP PLANNER 


Softissimo est heureux ! En effet, 

l'UAP vient de choisir son VP 

Planner comme tableur standard. 
D'autres accords sont en cours avec la 
DGT et EDF. 


INNELEC DISTRIBUE GEM JT BASE 


Innelec vient de signer un nouvel 
accord de distribution exclusive 
avec la société française JT Dif- 


fusion pour la gestion de fichiers GEM JT 
Base. 


UNE COMPTA PCW EN CHAREWARE 


Le shareware (logiciel partagé) 

connaît un grand succès aux 

Etats-Unis. Il s’agit d'une forme 
de distribution particulière des logiciels 
où l'auteur encourage la copie et le don 
à toute personne intéressée. Ce n'est 
qu'après avoir essayé le programme que 
l'utilisateur enverra à l’auteur une somme 
d'argent correspondant à l'idée qu'il se 
fait de la valeur du logiciel. Ce procédé 
doit permettre de briser le cercle vicieux 
où, les programmes sont vendus cher, 
sous prétexte de piratage, et piratés sous 
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prétexte qu'ils sont vendus trop cher. A 
notre connaissance, CI-COMPTA est le 
premier shareware pour PCW. Il s’agit 
d'une comptabilité écrite en DBase 
compilé, qui s'adresse aux petites entre- 
prises, aux associations et aux profes- 
sions libérales. D'une capacité de 500 
comptes et 5800 lignes d'écritures, elle 
est d'une mise en œuvre extrêmement 
simple. Toute information complémen- 
taire peut être obtenue auprès de l'au- 
teur : Charles CORBOU - 14, rue du Mail 
Richelieu - Paron - 89100 SENS. 


CANARD MAGNETIQUE 


FLOOPY STRAD, tel est son 
nom... Derrière sa paire de lunet- 
tes, le canard sympa offre une 
idée qui, vieille de quelques années déjà 
aux USA, n’en est pas moins nouvelle en 
France : un journal diffusant des infor- 
mations sur cassette ou disquette. 
Bien que concurrent, car traitant de 
l'AMSTRAD, nous ne pourrions manquer 
de saluer la naissance de ce nouveau 
confrère qui propose, dans son numéro 
1, 2 programmes de jeu et un utilitaire 
en même temps que des informations sur 
les CPC. 

FLOOPY STRAD est produit par INFO- 
MEDIA, annonceur dans CPC. 








CAPSULE MIRACLE ! 


L'électricité statique est la cause 
de bien des maux : de la désa- 
gréable décharge électrique, 
reçue sur le bout des doigts, aux pro- 
grammes ‘plantés’, en passant par la 
poussière qui se dépose sur l'écran, rien 
n'échappe à son palmarès. 

Face à cette calamité, une petite capsule 
adhésive est proposée au prix modeste 
de 80 F. Cette capsule se fixe sur l’ordi- 
nateur. Le fil électrique dont elle est 
munie sera impérativement relié à la terre 
(prise électrique ou tuyau de chauffage) 
pour être efficace. 

Produit vendu par ART et BUREAUTI- 
QUE SERVICES - 91 PALAISEAU - Tél. 
1.60.14.09.54,. 


CHEZ SIREN SOFTWARE 


Siren Software, dont les produits 

sont commercialisés par la 

société Duchet Computers, pro- 
pose quatre nouveaux utilitaires : Turbo 
416 qui formate et gère vos disquettes, 
Discovery + et Supertape 4000 qui 
transfèrent les programmes de cassette 
à disque et, enfin, Pro-sprites, un géné- 
rateur de lutins qui est offert à tout ache- 
teur des trois premiers logiciels. 


LE CPC 
AU SECOURS DES AGRICULTEURS 


L'informatique envahit tous les 

domaines d'activité et vient 

même en aide aux agriculteurs. 
GESVAC 1, qui tourne sur CPC 6128, 
est un logiciel professionnel agricole de 
calcul de rations alimentaires et de ges- 
tion technique d'un troupeau laitier. 
Contacter Philippe DEMOULE au 
73.95.90.20. 


AMSTRAD 
ET LA TELEVISION PAR SATELLITE 


La compagnie Granada vient, par 

l'intermédiaire du consortium Bri- 

tish Satellite Broadcasting qu'elle 
a créé avec Virgin, Anglia, Pearson et 
Amstrad Consumers Electronics, de se 
voir attribuer pour quinze ans la conces- 
sion des trois chaînes britanniques de 
télévision directe par satellite. Amstrad 
va rapidement commercialiser des anten- 
nes. paraboliques de faibles dimensions 
permettant la réception des trois chaînes. 





AMSTRAD CREE 
UNE USINE EN ESPAGNE 


Amstrad investirait 23 millions de 
francs dans la création d'une 
unité d'assemblage en Espagne 
pour le PC 1512. Selon la lettre hebdo- 
madaire des échos, ce chiffre représente 
50 % de la production exportée. 





MARION VANNIER A L'HONNEUR 


D> 


Marion Vannier : la réussite 86. 
C'est le titre d’un article de 4 
pages que notre confrère Chal- 
lenge vient de consacrer à la dynamique 
présidente directrice générale d'Amstrad 
France dans son numéro de janvier. En 
1982, elle lance Amstrad France avec 
50000 F en poche et en 1987, elle fera 
un milliard de chiffre d'affaire. Une réus- 
site exemplaire ! 





AMSTRAD ET LES PRIX... 


Réjouissez-vous, les prix bais: 
sent ! Tous les acquéreurs poten- 
tiels de machines de la gamme 
AMSTRAD vont être contents. Pour 
renforcer sa position sur le marché et 


répercuter la baisse de la livre anglaise, 
AMSTRAD ajuste ses prix vers le bas. 


Vendu 2690 F en 1986, le 464 mono- 
chrome tombe à 1990 F. Autre exemple, 
le PCW 8512 passe de 7690 F à 
5926 F. Qui, à part les revendeurs ayant 
stocké un peu trop de matériel, pourrait 
se plaindre de ces nouveaux prix ? Ceux 
qui ont payé leur machine plus chère 
avant le 1e" janvier, bien sûr ! 





COMMUNIQUE 

de DUCHET COMPUTERS 
et SIREN SOTFWARE 

| 51, St-George Road —- CHEPSTOW RP6 

SLA — Angleterre 

Tél : 44-291 257 80 


Depuis plusieurs mois la Société SEMA- 
PHORE fait paraître des publicités dans 
la Presse informatique concernant le pro- 
giciel BRICODISC (La disquette explo- 
sive de SEMAPHORE), au prix de 250 F, 
réduit à 175 F en janvier 1987. 

Les programmes contenus dans BRICO- 
DISC ont été prélevés par SEMAPHORE 
sur des progiciels appartenant à SIREN 
SOFTWARE. 

Un compendium en Français de ces mé- 
mes programmes est diffusé EN EXCLU- 
SIVITE (uniquement par Vente par Corres- 
pondance aux particuliers à partir de 
CHEPSTON en Angleterre et sans l'inter- 
médiaire d'aucun distributeur ni reven- 
deur) ‘par l'association des deux sociétés 
DUCHET COMPUTERS et SIREN SOFT- 
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FORMATION INFORMATIQUE A RENNES 


Micro Puces, association régie 
par la loi de 1901, propose des 
formations sur les systèmes d'ex- 
ploitation (MS-DOS, CP/M) et les logi- 
ciels professionnels tournant sur PC1512 


et PCW. Tél. 99.65.56.85. 


WARE sous le titre de TURBO 416. | 
Le texte Français et le manuel Français 
sont la propriété de DUCHET COMPU- 
TERS. 

Ni SIREN SOFTWARE ni DUCHET COM- 
PUTERS n'ont accordé d'autorisation, 
contrat ni licence à la Société SEMA- | 
PHORE pour produire elle-même BRICO- 
DISC ni pour le diffuser sous quelque titre 
ou forme que ce soit. Nous regrettons 
donc d'en conclure que depuis plusieurs 
mois la Société SEMAPHORE se livre au 
piratage informatique. 

La société SEMAPHORE a été mise en 
demeure par lettre recommandée en date 
du 9 janvier 1987, de stopper toute acti- 
vité concernant BRICODISC et d'annuler 
toute publicité concernant BRICODISC. 
Les possesseurs de BRICODISC sont 
instamment priés de contacter DUCHET 
COMPUTERS et SIREN SOFTWARE à 
l'adresse ci-dessus. 


D. Duchet 
Gérant de DUCHET COMPUTERS. 








NOUVELLES ASSOCIATIONS 


e Club informatique - allée des 

pins - Ecole mixte Cabot - allée 

des pins - 13009 MARSEILLE. 
e Club informatique de Vieux Charmont 
- Ecole Jean Moulin - Vieux Charmont - 
25600 SOCHAUX. 
* Association pour l'initiation à la micro- 
informatique - 52, les Catalpas - quartier 
des Fourches - 26200 MONTELIMAR. 
e Association loisirs jeunes et informa- 
tique Coutrillone - Siège social Mairie - 
Place E. Barraud - 33230 COUTRAS. 
e Association informatique et recherche 
- 144, chemin des amendiers - 34170 
CASTELNAU LE LEZ. 
e Club informatique communal de Monts 
sur Guesnes - Mairie - 86420 MONTS 
SUR GUESNES. 
e Club microplus TÜT - place du 8 mai 
1945 - 93200 ST-DENIS. 


UN CLUB AMSTRAD A BREST 


Ami-Strad, c'est le joli nom du 

club Amstrad brestois qui s'est 

installé au 1, de la rue Pierre Tré- 
pos dans les locaux du Centre social de 
Bellevue. On peut s'initier au Basic, à 
l'assembleur, au Pascal, à CPM. Des ate- 
liers d'électronique sont prévus, ainsi que 
la création d’un groupe qui réalisera des 
jeux d'aventure. Contacter Philippe Tan- 
guy au 98.01.28.31. 


AO 





REVENDEUR QUALIFIÉ 


Propose une gamme complète et diversifiée 


d'ordinateurs AMSTRAD 


étudiée pour s’adapter à vos besoins. 


FAMILIAL 


CPC 464 
CPC 6128 


Elysées 26 

26, Champs-Elysées 
75008 PARIS 

45 62 18 56 

*Ouvert le dimanche 


© : 





DISTRIBUTEUR 
AGREE 
228, rue du Fg Saint-Antoine on Paris - Tél. (1) 43.711212 
Minitel (1) 43,56 7587 (mot de passe ACS/) 


TRAITEMENT 
DE TEXTE 


PCW 8256 
PCW 8512 


PROFESSIONNEL 


PC 1512 : SD-DD 
HD 10 millions 
HD 20 millions 


et assure la maintenance 


la formation 


la distribution et le développement des logiciels 


la vente des fournitures. 


228, rue du fg St-Antoine 

75012 PARIS 

43 711212 

*Ouvert du lundi au vendredi 


Mini-informatique DPS 6 
Micro-informatique MICRAL 








ŒcPPle IE 


64, rue de la Chaussée d'’Antin 
75009 PARIS 

48 74 06 78 

*Ouvert du lundi au samedi 


Ordinateurs personnels PC 
# Réseaux 


© 





LES PASSAGERS DU 
VENT 

INFOGRAMES 

Aventure 


Si vous aimez la mer, le bateau, le 
grand large, l'aventure et 
l'exotisme, ce logiciel s'adresse 
particulièrement à vous. Vous êtes 
transformé en metteur en scène et 
devez dérouler à l'écran, dans les 
meilleures conditions possibles, 
toute une histoire de B.D. 

Vous trouvez avec cette aventure 
une adaptation fidèle de la bande 
dessinée du même nom que nous 
devons à François Bourgeon. Les 
principaux héros sont toujours ISA, 
héroïne audacieuse à la recherche 
d'un idéal et MOEL, marin breton 
courageux et audacieux ; d'autre 
part, il ne faut pas oublier que 
toute l'histoire se passe à la fin du 
XVIII siècle : il faut donc se mettre 
dans l'état d'esprit de cette 

époque pour comprendre certaines 
réactions. 


Cette superbe réalisation vous 
présente sur votre écran une partie 
graphique où se déroule l'action 
d'une part et des icônes, ainsi que 
des textes où vous voyez les 
personnages que vous interprêtez à 
ce moment précis. Vous avez la 
possibilité d'interpréter jusqu'à 15 
personnages différents !.. La 
précision et la beauté de chaque 
écran sont remarquables et, de 
plus, pour chaque épisode, il y a 
superposition de fenêtres suivant 
l'évolution de l'histoire. 

Une dernière chose pour les 
personnes qui ne connaissent pas 
l'histoire : dans le coffret du 
logiciel, vous avez le premier tome 
des Passagers du Vent pour vous 
plonger dans l'ambiance et 
l'aventure sur votre Amstrad 
débute juste à la fin de ce premier 
volume. 





LOGICIELS 





TLRRENIER ARTICLE 
EL AACTI ON 





SCOTT WINDER 
REPORTER 

ERE INFORMATIQUE 
Simulation 


L'occasion vous est donnée, grâce à 
ce jeu, de parcourir le monde à la 


“recherche d'un scoop, que dis-je,de 


trois scoops !.. En effet, vous vous 
glissez dans la peau d'un grand 
reporter du célèbre journal 
l'IMPACT et vous devez vivre et 


uegques heures on 
AE à conduit ISA + 


Ë LEFTERER Es 

D ELTAT LEO ET AIT NA ER 
sardes surveitéent &eL 
DEPOT CLOLU OR LE PT LUE à 2 


£ ‘endroix 


SUJET:DECOUVERTE 
GE °SITUE EN 


AFRIQUE 


agir comme le ferait tout journaliste 
digne de ce nom devant rédiger des 
articles qui paraîtront à la Une de 
son journal. 

Le principe est très simple : au 
départ, vous disposez d'une 
certaine énergie comptabilisée dans 
une unité universelle qui est le 
mafioul. Les mafñouls vous servent 
pour payer vos déplacements ou les 
renseignements que vous devez 
glaner. Si le niveau de mafiouls 
devient trop faible, vous avez accès 
à une scéance d'arcade vous 








permettant de refaire un "plein". 

Les seules indications que vous avez 
au début sont le sujet de l'article et 

le continent où il se trouve. À vous 
de découvrir dans quelle ville se 
déroule l'évènement et, ensuite, de 
remettre les mots de l'article dans 

le seul et unique ordre accepté . 


Cette simulation, avec un doigt 
d'aventure, présente des écrans 
graphiques très réussis et vous 
incite à réviser votre géographie 
mondiale ainsi que votre habileté à 
jongler avec la syntaxe française. 


TRIVIAL PURSUIT 
UBISOFT 
Réflexion 


Qui n'a déjà pratiqué ce célèbre jeu 
de société qui propose des 
questions sérieuses ou 
complètement farfelues ? Avec ce 
logiciel de Genus Edition, les 
habitués ne vont pas être 

dépaysés : le programme reprend 
exactement les règles du jeu "sur 
table”. Pour ceux qui ne sont pas 
pratiquants, un condensé du 
règlement est exposé dans la notice. 
Mais alors, qu'apporte cette version 
informatique ? Tout simplement 
l'image et le son. En effet, vous 
aurez à reconnaître des sigles, des 
constellations, des empreintes, des 
hymnes, des bandes-son de film. De 
plus, vous pourrez choisir le temps 
de réponse (de 5 secondes à 9 
minutes), bref ces options 
supplémentaires auxquelles on peut 
ajouter l'abandon provisoire ou 
définitif de certains joueurs, 
apportent un "plus" indéniable au 
jeu d'origine. Gageons que ce 
programme aura beaucoup de 
succès auprès des possesseurs 
d'Amstrad, car il possède, de par 
ses animations graphiques et 
sonores, un réel intérêt ludique. 








PRÉSENTE : 


DL 
le suitiiure te @i 


MULTIFACE II : Copies de sauvegarde de tous vos programmes sur disquettes ou 
sur K7 575F 





FILTRES D'ECRAN : Suppriment la brillance et permettent l’utilisation de votre ordi- 
hateursans fatigue... init dus Mono CPC : 160F 

Couleur CPC : 190F 

Mono PCW : 220F 





Les softs d'ARNOR, en EPROM ou sur disquette : 


MAXAM : Le meilleur assembleur/moniteur éditeur.Disquette : 240F 
. EPRONMS ES latente Tru 360F 


PROTEXT : traitement de texte ultra performant 
CPC disquette 
PCW disquette …. 





PHASOR ONE : D'une très 
grande sensibilité, convient 
aux droitiers comme aux gau- 
chers, un très long câble per- 
met une totale liberté ! Encore 
un atout : sa solidité, voici le 
PHASOR ONE. Prix 125F 





REVENDEURS, CONTACTEZ-NOUS ! 


BON DE COMMANDE 
à adresser à MICRO FAIR, 255, bd Voltaire - 75011 PARIS 
Tél : (1) 43.72.30.78 





MAXAME nan d/E 240F/360F Filtre monochrome CPC 160F PHASORONE Pansronnngn reset 125F 
CIE SP MEN d/E 240F/360F Filtre cOUIQUr CPC nr 190F un ronics-mémoires-Amstrad 
E270F Filtre monochrome PCW ….….…….. 220F DRE NA MERE ENS à 
FETE 425F MULTIFACEN SAS 78 PF 256 K disque silicone (464,664) 
SR En OA 100F THINGIÉRT Ne ah 80F 256 K pour 6128 EN Une 
256 K disque silicone pour 6128 1050F 
NOTES Eh dem Edo Le Le AT Te Zi ad at es US BRON De LES LA CE SU cn dE a asso 23 OS 
Ares nn RE AE A MP nee UD EUe ra Qu TA RE RNA Re A PE LE TEE ETES AN UIN S RAO à 


Joindre un chèque du montant de votre commande + 10 F de port par produit. 


| THE GREAT ESCAPE 
OCEAN 
Arcade/Aventure 





"La Grande Evasion", un titre qui 
laisse imaginer une superproduction 
cinématographique, avec la 
participation d'une pleïade de 
vedettes. En fait de vedettes, c'est 
vous qui allez jouer le premier rôle. 
Votre but sera, bien sûr, de vous 
évader d'une prison. Pour cela ne 
comptez pas trop sur vos 
camarades, ceux-ci sont assez 
apathiques. En revanche, soyez 
assurés que les gardes, les 
patrouilles, les chiens et les alarmes 
accompliront parfaitement leurs 
rôles. 

Votre personnage au milieu de 
l'écran se déplace en diagonale et 
devra visiter et connaître à fond les 
lieux pour avoir une chance de 
réussir son évasion. Tenez bien 
compte des messages affichés en 
bas de l'écran : le fait de manquer à 
l'appel ou de ne pas participer à 
l'exercice vous fera presque 
immédiatement mettre au cachot. 
The Great Escape est un jeu assez 
réaliste, où il vous faudrait un 
certain temps avant de réunir les 
objets nécessaires à l'évasion et 
avant d'avoir mémorisé les 
différents tours de garde. On peut 
simplement regretter une absence 
quasi-totale de bruitages. 





BIG BAND 
SOFTHAWK/FIL 
Aventure 


Vous avez ici la possibilité de vous 
transformer en parfait malfrat 

avec un minimum de risques (le pire 
est de vous retrouver dans un 
cercueil avec la possibilité de 
rejouer) et un maximum de chances 
de devenir milliardaire en réalisant 
le Casse du Siècle dans la petite 
ville où vous arrivez après avoir 
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passé dix années de votre vie dans 
une prison. 

Vous arrivez dans cette ville avec 
pour seul secours Max, votre copain 
de cellule, qui vous a donné rendez- 
vous pour un poker. Vous vous 
trouvez confronté à tous les 
problèmes de la vie courante, c'est- 
à-dire se loger, se nourrir, 
rencontrer des gens, négocier avec 
eux, entretenir votre véhicule ou 
trouver de l'argent (tous les coups 
sont permis... ) ; tout cela, bien sûr, 
sans se faire remarquer par 
l'inspecteur Lecoq et ses acolytes 
qui attendent avec impatience votre 
premier faux pas. 


ET 
BOF aEses 





Après une page de présentation 
superbe, vous avancez dans votre 
aventure grâce à un système 
d'icônes et à un vocabulaire qui a 
l'avantage d'être affiché en 
permanence à l'écran dans une 
fenêtre. Un dernier détail qui a son 
importance : ce logiciel ne 
fonctionne pas sur le 464. 


DANCING GIRL 
SMINIPUCE 
Utilitaire 


Dancing Girl est un outil vous 
permettant de faire de l'animation 
sur Amstrad, avec une simplicité 
d'utilisation, ce qui n'empêche pas 
d'obtenir de bons résultats. 

Avant toute chose, il faut 
digitaliser tous les dessins qui 
s'intègreront ensuite soit dans le 
décor, soit dans l'animation 
proprement dite. Vous disposez 
pour cela d'ue grille dont la taille 











maximum est de 80 points par 64 ; 
avant chaque dessin, vous fixez sa 
taille définitive et ensuite, vous 
disposez de 4 couleurs pour remplir 
la grille couleurs que vous pouvez 
modifier, biensür, puisque vous 
travaillez en mode 1. 

Une fois que tous les éléments de 
votre décor sont fin prêts, vous 
n'avez plus qu'à les disposer pour 
obtenir votre fond de scène. Vous 
utilisez le même procédé pour 
positionner les dessins qui 
formeront l'animation ; dans ce cas, 
vous disposez d'une fiche 
d'exposition vous permettant de 
sélectionner le temps d'apparition à 
l'écran de chaque image. 

Vous arrivez alors à la dernière 
phase de création qui vous permet 
de contempler votre œuvre ; grâce 
à l'option “spectacle”, vous avez la 
restitution de chaque phase 
d'animation dans le décor choisi. 
D'une utilisation très agréable, ce 
logiciel s'adresse particulièrement 
aux personnes voulant faire leurs 
débuts dans l'animation de dessins. 
Après quelques heures de 
pratique, vous parviendrez sans mal 
à obtenir des résultats 
satisfaisants. Un dernier détail : 
pour obtenir un effet réaliste, il ne 
faut pas oublier de faire apparaître 
dans vos dessins les déformations 
ou les cadences (dans le cas d'une 
balle qui rebondit, par exemple). 


MEURTRES EN 
SERIE 

COBRA SOFT 
Policier 


Dans la catégorie des meurtres en 
tout genre, après la grande vitesse 
et l'Atlantique, on se trouve 
confronté à toute une “scène de 
meurtres" dans un contexte où 
l'angoisse voyage et grandit en 
circuit fermé puisqu'il s'agit d'une 
Île. 


le Révérend 
… 


“+ 


| Notre A 
U ce og ed 








Etant reconnu comme le plus fin 
limier, vous débarquez sur l'Ile de 
Seroq à 11h et vous devez avoir 
résolu votre enquête à 19h au plus 
tard car, cette fois, contrairement 
aux aventures précédentes, le 
temps joue un grand rôle. 
Une fois de plus, Cobra nous a 
maintenant donné cette habitude, le 
logiciel est livré dans un coffret 
avec une multitude d'indices dont je 
vous donne un petit aperçu : une 
étiquette de vin, un bouchon, une 
boulette de papier (la liste est loin 
d'être exhaustive)... 
A cette passionnante aventure 
policière avec des graphismes très 
élaborés s'ajoutent deux plus : le 
premier est un jeu d'arcade qui vous 
permet d'obtenir un indice sur votre 
enquête, à condition de faire un 
score d'au moins 30000 points 
(réalisable avec un minimum 
d'entraînement) ; le second est la 
possibilité de digitaliser votre 
propre image et de l'intégrer au jeu. 
À ce moment là, votre image 
apparaîtra à chaque fois qu'il n'y a 
pas de témoin à l'endroit de l'île où 
VOUS VOUS trouvez. 


ECHOSOFT 
ESAT SOFTWARE 
Utilitaire 


Lors de l'achat du logiciel Echosott, 
vous aurez entre les mains non pas 
un, mais trois programmes. 
Commençons par le générateur de 
bruits nommé Sound/-soft. À l'aide 
du curseur, vous entrez les voleurs 
nécessaires à l'obtention du son 
désiré. Vous avez à votre 
disposition les trois canaux de 
l'Amstrad avec possibilité de les 
mixer entre eux, de changer 
période, enveloppe et volume. Le 
tout vous permettra de fabriquer 

de toutes pièces des bruitages 
assez réalistes. Pour vous 
convaincre des ressources du soft, 
essayez donc la démonstration : elle 


est pie ape 











vous propose 50 sons, du bruit des 
vagues au rugissement de 
réacteurs, en passant par la 
locomotive à vapeur. Bref, si vous 
ajoutez la possibilité d'incorporer 
vos chef-d'oeuvres dans vos 
programmes, Soundsoft est tout à 
fait complet dans ce domaine. 

Le second logiciel, Synthésoft, a 
pour ambition de vous fournir un 


synthétiseur électronique. Sur 
l'écran se trouve un clavier dont les 
touches sont activées par 
l'intermédiaire du C.P.C. Vous 
pouvez agir sur 5 paramètres : le 
Vibrato (entre 1 et 15), l'octave 
(entre -3 et 5), la tonalité (entre 1 

et 9), le bruit, l'attaque et le 

sustain (entre 1 et 9). 

En combinant ces valeurs, vous 
pouvez obtenir jusqu'à des dizaines 
de milliers de sons différents. 

Bien sûr, Vos mélodies peuvent être 
enregistrées et restituées à 

volonté. On regrettera seulement 
l'absence de la polyphonie qui aurait 
permis d'obtenir des airs plus 
complexes. 

Le troisième et dernier programme 
s'appelle Echosoft. C'est sans 
doute pour lui que vous achèterez le 
logiciel, En effet, l'idée de donner la 
parole à votre Amstrad sans 
interface, a certainement aiguisé 
votre curiosité. Donc, vous vous 
installez devant votre Amstrad et, 
impatient, vous lancez la démo. Le 
résultat est à peu près équivalent à 
la voix entendue dans le jeu 
d'Orphée. C'est-à-dire métallique 

et gresillante, mais audible. 
Encouragé par ce prologue, vous 
décidez de vous lancer vous aussi 
dans la digitalisation vocale. C'est 
alors que les problèmes vont 
commencer. Deux cas sont 
possibles : soit vous possédez un 
664 ou un 6128. La deuxième 
configuration est celle qui vous 
permettra d'obtenir les meilleurs 
résultats. À vous d'adjoindre à 
votre ordinateur le magnétophone le 
plus performant que vous 
possédiez. Ensuite, il vous faudra 





jouer avec le niveau de sortie vers 
votre ordinateur. Lorsque vous 
aurez obtenu un réglage correct, 
vous pourrez alors vous lancer. 
Enregistrez votre voix ou bien de la 
musique sur bande. Ensuite, en 
frappant "E" et en appuyant sur la 
touche PLAY, le programme 
transfèrera les données de la 
cassette vers sa mémoire. Au bout 





d'une minute environ le spectre 
sonore apparaîtra à l'écran. Vous 
aurez ensuite toute latitude pour 
déplacer ou effacer des morceaux, 
pour accèlerer la vitesse de 
reproduction, et augmenter le 
volume sonore. Le fin du fin reste la 
possibilité d'ajouter les voix 
digitalisées à vos programmes. 
N'oubliez pas que cette pratique 

est gourmande en mémoire : 53 
secondes de paroles correspondent 
à 37 K occupés. 

Donc, si vous désirez vous attaquer 
à la synthèse vocale, fourbissez 
votre chaîne HIFI, armez- vous de 
patience et lancez le programme 
Echosot. 


REUSSIR EN 
ORTHOGRAPHE 
LOGICIEL 44 
Educatif 


Ilest bien connu que l'une des plus 
grandes difficultés que rencontre 
un élève français se situe au niveau 
de l'orthographe. C'est pourquoi 
logiciel 44 a sorti cet éducatif, qui 
s'adresse aux élèves de CM2, 
proposant de nombreux exercices 
et permettant d'aborder la quasi- 
totalité du programme scolaire. 
Voici un petit échantillonnage des 
exercices proposés : accord du 
verbe, indicatif, imparfait, passé 
simple, conditionnel ou accord du 
participe passé avec les auxiliaires 
être où avoir. Il est également 
possible de tester ses 
connaissances sur le pluriel ou le 
féminin des noms et même sur 


l'écriture correcte de différents 
termes ayant le même son (ex : 
quand, qu'en ou prêt, près... ). 
L'intérêt de ce logiciel est de 
pouvoir conserver sur la disquette 
les résultats de 15 élèves au 
maximum. |l est donc possible de 
travailler en classe et d'observer le 
progrès de chaque élève et ce, sous 
forme de graphiques. De plus, 
suivant le temps de réponse et le 
pourcentage d'erreurs de l'élève, 
celui-ci se voit indiquer s'il a 
compris, assimilé ou acquis 
l'exercice qu'il vient de faire. 
Somme toute, un logiciel sérieux qui 
permet de travailler effectivement 
avec l'ordinateur en classe, en ayant 
un suivi pour chaque élève. Sur la 
disquette, il y a 2000 exerices qui 
sont bien présentés et d'un bon 
niveau ; quant au prix, il faut 
signaler que cet éducatif coûte 100 
francs. Enfin, vous avez avec le 
logiciel une bande autocollante qui 
est bien utile si vous transformez le 
clavier en clavier AZERTY car vous 
repérez ainsi toutes les touches 
redéfinies. Un dernier détail 
pratique : pour faire votre 

sélection dans le menu, il faut 
utiliser les touches du pavé 
numérique. 


TURBO 416 
SIREN SOFTWARE 
Utilitaire 


La capacité des disquettes 3'est 
limitée à 179 K (format DATA), 

cela peut sembler insuffisant. C'est 
pourquoi SIREN Software propose 
un logiciel permettant de repousser 
cette limite et d'atteindre 202, 

voire 208 K par face. Un rapide 
calcul montre le gain de mémoire par 
disquette : 58 K avec l'option 208. 
va sans dire que cet apport de 
mémoire n'est pas réalisé sans 
contrepartie : après avoir placé une 
disquette vierge dans votre lecteur 
et validé l'option formatage 202, 
vou vous retrouverez avec un disque 
apparemment structuré au 
standard DATA. Où sont donc 
passés les 202 K promis ? Pour les 
obtenir, il suffit de lancer un des 
programmes binaires qui se trouve 
sur votre disquette nouvellement 
formatée. Vous taperez RUN 
"SUPERA" si vous n'avez qu'un seul 
lecteur de disques ou RUN 
"SUPERB" si vous voulez atteindre 
le second lecteur, Après un CAT, le 
directory affiche : STDA.BIN, 
STDB.BIN et 200 Ko Free. Ces 
deux programmes sont utilisés pour 
revenir au système standard, en les 
supprimant vous obtiendrez vos 
202K. 


Mais ne croyez pas que tout est 
gagné : à chaque réinitialisation, 


vous devrez lancer SUPERA ou 
SUPERB, de plus, vous ne pouvez 
transférer un fichier d'une 
disquette normale à une disquette 
formatée en 202 qu'en utilisant le 
programme “Transfer” contenu 
dans Turbo 416. En mode 208, les 
contraintes sont encore plus 
importantes : il n'est pas possible 
de lancer le catalogue sans avoir 
auparavant fait RUN *SUP208.A" 
ou "SUP208.B" selon le lecteur. 
Ces deux programmes se trouvent 
sur la disquette Turbo 416 et ne 
peuvent être copiés sur le disque 
formaté en 208 K. 
Parmi les autres options, on trouve 
pêle-mêle : un back-up disque qui 
permet d'archiver vos disquettes 
sur des cassettes audio (Attention, 
il s'agit d'une copie physique, vous 
ne pourrez utiliser les bandes 
magnétiques que pour regénérer 
des disquettes effacées), un 
générateur de menu à implanter sur 
vos disquettes afin de gérer vos 
fichiers, une série de 3 options 
permettant respectivement de 
rechercher une chaîne ASCII ou 
hexadécimal sur toute la disquette, 
d'explorer les secteurs et de les 
modifier et, enfin, de faire un dump 
de vos fichiers ASCII. 
L'ensemble de ces fonctions peut 
être utilisé avec les disquettes 202 
et 208K. 
Sur la deuxième face de Turbo 416, 
on trouve une série d'utilitaires 
disque, parmi lesquels : un éditeur 
de secteur, des logiciels de 
transfert K7/disque et 
disque/disque (aux formats 
standards), un éditeur de catalogue 
avec possibilité d'effacer, de 
renommer les fichiers, de changer 
les USER, mettre en mode 
Read/Write et inversement, de 
cacher les titres du catalogue 
{SYS ou DIR). En fait, on retrouve 
toutes les fonctions classiques des 
utilitaires pour disque comme 
ODDJOR par exemple, plus un 
utilitaire de déprotection des 
programmes Basic et un copieur 
(Que les bonnes âmes se rassurent 
ce dernier programme, baptisé 
IMAGE, est loin de marcher sur les 
plates-bandes de Discology ou 
d'Hercule). 
Turbo 416 est un utilitaire qui vous 
rendra de nombreux services, mais 
dont la fonction la plus intéressante 
est malheureusement lourde à 
mettre en œuvre. 








THE ANIMATOR 
DISCOVERY 
Utilitaire 


Votre rêve est-il de devenir le Walt 
Disney français ? Si la réponse est 
positive, voici pour votre Amstrad 
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le logiciel "The animator”. Certes, il 
n'est pas question, malgré les 
possibilités des CPC, d'obtenir des 
résukats comparables à ceux du 
cinéma d'animation. Pourtant vous 
serez étonnés, je pense, par la 
simplicité et la puissance de ce 
programme. Comme vous n'avez pas 
le logiciel sous la main, je vais 
essayer de vous décrire ce qui se 
passe à l'écran. 

Lors du premier menu, choisissez 
l'option "animate”, et donnez un nom 
à votre future animation. Vous vous 
retrouverez face à l'écran d'édition. 
A l'aide des touches fléchées du 
curseur ou du joystick, déplacez un 
curseur graphique et tracez des 
traits. Retenez bien le nombre de 
segments, il vous sera bientôt utile. 
Imaginons que vous tracez un carré 
sur la page numéro 1, celui-ci 
comportera donc 4 segments. 
Choisissez un autre numéro de page 
une fois revenu au menu, par 
exemple 50. Revenez au mode 
édition et tracez un carré similaire 
au premier, mais en haut et à gauche 
de l'écran. Ensuite, tapez l'option 
RUN, vous verrez votre image 
numéro 1 suivie de 48 autres pages 
et finalement l'image numéro 50. Eh 
oui | l'ordinateur a généré, 

compacté toutes les images 
intermédiaires entre 1 et 50, et il 

les fait défiler à une vitesse 
largement suffisante pour donner 
l'impression du mouvement. Notre 
première animation était 

simplement une translation, mais 
nous pouvons compliquer les choses. 
En ajoutant des notations suivant 
l'axe des X ou l'axe des Y sur des 


images intermédiaires, on peut 
obtenir des effets tridimensionnels. 
Ilest possible d'effacer des images, 
de les copier et de les transférer 

sur d'autres pages. 

Bref, il suffit de respecter le 

nombre de segments dans la 
première et la dernière image et 
tout est possible. 

Ilexiste plusieurs modes : le mode 0 
possède une résolution de 320 sur 
136 pixels et 2 couleurs, le mode 2 a 
une résolution identique mais avec 4 
couleurs enfin le mode 1 affiche 640 
x 136 points et 2 couleurs. || semble 
tentant d'utiliser plutôt les modes 1 
et 2 mais à l'usage le mode 0 est le 
plus esthétique puisqu'il ne produit 
aucun clignotement contrairement 
aux premiers. 

Parmi les autres possibilités, on 
trouve : le coloriage de zones 
fermées, la construction de 
polygones, le rétrécissement ou 
l'agrandissement de certaines zones 
de l'écran, l'effaçage de tout ou 
paitie du dessin, la sauvegarde et la 
restitution de séquences animées. À 
ce propos, il faut noter la 

possibilité d'incorporer les 
animations dans un programme 
BASIC grâce à l'appel d'une routine 
baptisée "SHELL", Cependant, et 
malgré nos efforts répétés, il ne 
nous a pas été possible de sauver 
une “démo”. Cela étant dû au fait 
que la touche "#" n'est pas 
accessible au clavier, (En effet, 
toutes les routines de 
démonstration sont intitulées 
DEMO#NN, où NN est un nombre 
entre 01 et 999). Enfin, grâce aux 
trois démonstrations incluses sur la 


version disquette, vous pourrez 
vous faire une idée de ce qu'il est 
possible de réaliser. Ce programme 
est donc un "must" pour ceux que le 
graphisme et l'animation attirent. 


E.M.U. 
GREMLIN GRAPHICS 
Utilitaire 


Voici un utilitaire qui risque fort de 
mettre tout le monde d'accord, du 
moins je l'espère, en ce qui concerne 
la musique électronique. En effet, 
c'est un logiciel où chacun peut 
trouver sa part, que l'on soit un 
musicien averti ou bien un néophyte 
en ce domaine. 

Pour ce qui est du domaine musical, 
si vous savez déjà jouer du piano, 
vous pouvez utiliser le clavier de 
l'Amstrad et jouer votre mélodie en 
direct après avoir sélectionné 
l'octave désirée (parmi les quatre 
proposées), le tempo, le nombre de 
temps par mesure et la clef. Trois 
partitions sont affichées à l'écran 
car vous avez la possibilité de jouer 
trois harmonies. Enfin, lorsque vous 
déclenchez l'enregistrement de l'air 
que vous allez jouer, vous commencez 
par entendre un *beep" suivant le 
temps et qui fait office de 
métronome. Lorsque vous avez 
terminé votre enregistrement, si 
vous décidez de conserver votre 
œuvre, toute la partition s'affiche à 
l'écran. 


Par contre, si vous ne savez pas 
jouer de mélodie mais que vous 


désirez rentrer sur votre Amstrad 

la partition de votre tube préféré, 
vous avez la possibilité de la 
reproduire sur la portée, note 

après note ; il suffit pour cela de 
choisir la bonne note en bas de 
l'écran et la bonne valeur sur le 
clavier représentant une octave ; 
les sélections de tempo et de clef se 
font de la même manière que 
précédemment. 

Dans les deux cas, vous pouvez bien 
sûr écouter ensuite l'air qui a été 
joué et dans le même temps, la 
partition déroule sous vos yeux, une 
flèche vous indiquant à chaque 
instant quelle est la note jouée. 

La seconde partie de cet utilitaire 
très intéressant donne la possibilité 
de créer toutes sortes de sons qui 
pourront être utilisés soit 
conjointement à une musique (pour 
un trémolo par exemple), soit pour 
être indus à un jeu d'arcade. 

Pour créer un effet sonore, il vous 
faut définir une enveloppe de 
volume et une enveloppe de ton. 
Lorsque vous sélectionnez un son 
précis, vous avez un où deux 
graphes (selon le cas) qui 
s'affichent à l'écran. 

L'intérêt de cet utilitaire est que 
vous pouvez sauvegarder toutes vos 
créations et les utiliser 
indépendamment dans vos 
programmes de jeu, par exemple. 
Outre son intérêt, ce logiciel a 
l'avantage d'avoir une présentation 
très propre avec une succession de 
menus et un partage d'écran 
rendant celui-ci très “aéré”. Enfin, 
l'utilisation de "E.M.U." s'avère être 
claire et simple. 











_ BANC D'ESSAI 








UN DRIVE 5’ 1/4 
QUI TIENT DEBOUT ! 


Denis BONOMO 


Nous avons déjà eu l’occasion de présenter à nos lecteurs différen- 
tes réalisations commerciales de 
propose LOISITECH. 





Nous avons testé la version ‘double 
drive’ : c'est certainement celle qui pas- 
sionnera le plus les amateurs de pro- 
grammes de la bibliothèque CP/M, vu 
tous ceux qui écrivent beaucoup de logi- 
ciels personnels sans utiliser ceux qui 
sont proposés sur 3’. Faut-il rappeller 
que les disquettes 5’’ 1/4 coûtent 6 à 10 
fois moins cher que 3" ? 

Dès le premier contact avec le matériel, 
on se rend compte du sérieux de la réa- 
lisation. Le boîtier est en aluminium de 
1,5 mm d'épaisseur. Le constructeur n’a 
pas cherché à donner dans le compact : 
les dimensions sont de 24 x 32 x 15 cm. 
Les côtés sont composés de 2 flasques 
en bois fixées par des équerres intérieu- 
res en alu. La curiosité (qui est un vilain 
défaut. mais une qualité quand un jour- 
naliste veut renseigner ses lecteurs) nous 
a conduit à ôter les 6 vis qui ferment le 
boîtier. On découvre, à l'intérieur, une 
réalisation irréprochable tant par le mon- 
tage mécanique que par le choix du 
matériel : le drives sont des TEAC et l'ali- 


mentation, intégrée dans un boîtier, n'est 
pas de fabrication LOISITECH. ON nous 
a signalé que l'alimentation choisie était 
capable de supporter un disque dur. 
La liaison avec l'AMSTRAD s'effectue au 
moyen de 2 connecteurs disposés sur 
une plaquette d'époxy sur la face 
arrière. C'est également sur la face 
arrière que l'on trouvera la prise d'alimen- 
tation 220 V et l'interrupteur marche- 
arrêt. Un voyant, situé sur la face avant, 
indique la mise sous tension. 
Refermons le boîtier, sans le laisser tom- 
ber sur nos pieds car l’ensemble est d'un 
poids respectable, et procédons aux pre- 
miers essais. Si l’on veut utiliser ce maté- 
riel en premier drive sur un 464, il est 
indispensable de posséder l'interface 
AMSTRAD du DDI1. Seul problème, 
cette interface n'est pas vendue séparé- 
ment... Cela suppose que l'on possède 
déjà un 3'” ou que l'on ait réussi à trou- 
ver l'interface sur le marché de l’occa- 
sion. Ensuite, il faudra disposer de CP/M 
sur 5” 1/4, ce qui peut s’obtenir par 


rives 5’’ 1/4 : voici celle que nous 


copie de la disquette 3°’ d'origine ou. 
en ayant accès à une bibliothèque CP/M. 
Nous avons effectué, sans surprise désa- 
gréable, des formatages, transferts et 
copies diverses. Par la même occasion, 
nous avons pu tester quelques échantil- 
lons de disquettes fournies par ‘Wild 
West Europe’ (PICONET) et en particu- 
lier, un formateur que vous trouverez 
prochainement dans CPC. 

En conclusion, il apparaît que le matériel 
proposé par LOISITECH allie à la fois, des 
qualités de robustesse et de fiabilité. 
C'est certainement un bon choix offert 
à tous ceux qui désirent s'équiper en 5°’ 
1/4. 

Pour tous renseignements, contacter 
LOISITECH au (1) 48.59.72.76. 


LES ABONNES 
DE CPC 
RECEVRONT 


DESORMAIS 
GRATUITEMENT 


LES NUMEROS 
HORS SERIE 


BON DE COMMANDE 
PAGE 
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A LA VITRINE DU 





: 


PROGRAMMER 
EN ASSEMBLEUR Z 80 
San PINAUD 

P. AA 


Vous connaissez la programmation en 
BASIC mais vous craignez de vous lan- 
cer dans l’assembleur du Z80 ? Vous 
avez tort | 

Voici un livre qui, avec humour, vous 
ôtera tous vos complexes. L'apprentis- 
sage est progressif et chaque mnémoni- 
que vient en son temps. On ne vous 
brusque pas, et c'est efficace. 

Si vous possédez à la fois un AMSTRAD 
et un MSX, ce livre est vraiment pour 
vous puisque l’auteur choisit ces appa- 
reils comme support à ses exemples. De 
nombreux exercices sont proposés ainsi 
que quelques programmes dont un 
compacteur-décompacteur graphique. 
Notons enfin que le pendant de cet 
ouvrage existe sous la forme d'une 
disquette. 





Pierre TACONNET 


CLEFS POUR 
AMSTRAD PCW 


CLEFS | 
POUR AMSTRAD PCW 
A la lus WEYER 


LOCOSCRIPT, BASIC MALLARD, MUL- 
TIPLAN, DBASE Il, CPM +, tout cà dans 
250 pages ? Suspect, dites-vous ? Pas 
du tout ! 

Si une telle concentration est incompa- 
tible avec un travail de fond, elle offre 
une aide précieuse à l'utilisateur qui 
bénéficie, avec cette formule, d'un riche 
et précis aide-mémoire-mode d'emploi. 
Qui peut se targuer de passer sans sou- 
cis de la syntaxe du BASIC MALLARD 
à celle de DBASE sans une petite période 
de réadaptation ? Cet ouvrage vous évi- 
tera d'avoir à consulter un manuel 
détaillé quand ce que vous demandez est 
un simple rafraîchissement d'idées. 





BRAIRE 


Ce livre est aussi un bon manuel d'ap- 
prentissage qui vous permettra d'aller 
droit au but, gagnant ainsi un temps 
précieux. 





dBASE Il sur AMSTRAD 
Claude DELANNOY 
EYROLLES 


Ce livre est un modèle. Trop souvent les 
ouvrages traitant de l'informatique man- 
quent de ce qu'est précisément l'infor- 
matique : rigueur, clarté, concision, 
structuration. Il n’en est rien cette fois- 
ci, et c'est heureux, car le sujet, dBASE 
Il, le mérite. 

dBase n'est pas le monstre, quasi mythi- 
que, que d’aucuns prétendent et son 
accès n'est interdit à personne, pas 
même aux programmeurs débutants ; 
c'est la première leçon de ce livre. 
dBASE est un progiciel de bases de don- 
nées, et qui dit base de données dit, par 
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là-même, gestion de fichiers. C'est en 
dressant un parallèle entre les fichiers 
manuels et les fichiers informatisés que 
l'auteur commence, ce qui vous met tout 
de suite dans le bain. Tellement, que 
vous créez illico votre premier fichier, un 
classique répertoire téléphonique, enfin, 
pas si classique puisque vous écrivez 
sous dBASE ! Les accès à ce fichier 
seront d'une richesse qui vous surpren- 
dra, mais vous ne le savez pas encore ! 
Les commandes sont apprises très pro- 
gressivement et c'est en douceur que le 
dialogue s'engage avec le programme. 
En quelques questions-réponses, votre 
fichier est prêt pour la saisie. Il faut le voir 
pour le croire ! Ceux d'entre vous qui ont 
un 6128 ou un PCW et qui, des heures 
durant, à la sueur de leur front, ont écrit 
un programme de fichier, seront les plus 
épatés ! 

Les champs caractères et numériques 
passés en revue, viennent alors les exer- 
cices dans une rubrique, ‘’ENTRAINEZ- 
VOUS", dont chaque phase d’apprentis- 
sage est dotée et dont les solutions sont 
données en fin d'ouvrage. Cette rubrique 
‘’pas à pas’’ est certainement un des 
points forts du livre de Claude DELAN- 
NOY qui a, c'est manifeste, conçu et 
écrit ce bouquin pour une pédagogie 
active. Autre élément participant du 
même esprit, la reproduction systémati- 
que des écrans sur lesquels vous êtes en 
train de plancher. 

Viennent alors et tout naturellement, les 
fichiers indexés sur le même mode, avec 
la même simplicité et on aboutit à la 
seconde grande partie de l'ouvrage : la 
programmation. 

Compliquée, la programmation sous 
dBASE ? Que nenni ! Pas plus que le 
BASIC et bien moins que d'autres. Des 
commandes à apprendre que l'on assem- 
ble, et, bien épaulé par ce bon livre, vous 
entrevoyez déjà l’utilisation que vous 
pourrez faire de ce progiciel dont le moin- 
dre intérêt, pour les Amstradistes que 
nous sommes, n’est pas son faible coût. 


AMSTRAD - JEU D’AVENTURE 
Jean-Luc JOUD 

Claude VIVIER 

Sybex 


Les amateurs peuvent se réjouir, cet 
ouvrage passe en revue toutes les com- 








posantes d’un jeu d'aventure et, en 
prime, ils y gagneront le programme qui 
sert de support à ce livre. 

Rien n'est laissé au hasard, pas même 
la musique. Les auteurs sont allés jusqu’à 
livrer un compacteur-décompacteur 
d'images, nécessaire si l’on désire illus- 
trer abondamment son jeu. Le lecteur, 
après avoir fixé le cadre du jeu et établi 
le scénario, écrira la table des conditions 
avant de passer au traitement des 
actions et à l’analyseur de syntaxe qui 
est, rappelez-vous les conseils de Mar- 
cel LE JEUNE pour COLDITZ, l'articula- 
tion première de tout jeu d'aventure. 

Il semble que rien de ce qui constitue un 
jeu d'aventure sophistiqué n'ait été omis. 
Cet ouvrage est vraiment remarquable. 
remarquable. 


FICHIERS SUR AMSTRAD 
PCW 8256/8512 

Patrice BIHAN 
EYROLLES 


L'intérêt de ce livre réside dans le paral- 
lèle établi entre les différents types de 
fichiers : accès séquentiel, direct, indexé 
(structurés et déstructurés). Il réside éga- 
lement dans l'emploi du BASIC, de JET- 
SAM et de CPM. 

Réunir, dans un ouvrage de 200 pages, 
autant de sujets dont chacun eût pu faire 
l'objet d'un livre, est une gageure à 
laquelle Patrice BIHAN a été confronté et 
dont il se sort sans trop de mal. 


L'avantage de ce type d'ouvrage est que 
le lecteur dispose de tous les renseigne- 
ments qui lui permettront d'effectuer son 
choix dans la gamme qui lui est ainsi 
offerte ; à contrario, sa faiblesse est le 
manque de profondeur de l'analyse des 
différents systèmes. 

De nombreux programmes parsèment 
cet ouvrage, offrant des exemples con- 
crets d'utilisation dans des domaines 
aussi divers que la gestion de classement 
scratch dans les courses de côtes ou la 
prise d'inscriptions et la gestion des 
fichiers des membres d'une association. 


FICHIERS SUR 
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Editeur+Copieur+Exploreur ln ao dr VenrA 
100+ Langage Machine Pan Leu e de 
Fenêtres & Menus Déroulants ex GX qua V veu 

Un cc oercemie 
L”’ gDITÉ . contenu de toute disquette, 


qu'elle soit protégée ou non. 
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set Xe 








K @œ 
a . ue Quatre modes d'édition combinant Ascii, hexa, décimal, octal, binaire. 
29 X NYf | 
5 î ML ; Des capacités exceptionnelles que vous pouvez exploiter immédiatement : 
a mb s 5: 5 
à # HI! OR e Désassemblage direct des programmes en Langage Machine 
À PE ; e Listage automatique des programmes Basic 
È 





e Les outils de bureau : ciseaux, colle, calculatrice mathématique 


Toutes les possibilités à La portée du débutant comme de l'expert : 
e Récupérer une disquette endomagée ou un programme effacé 
(: Explorer un directory, Le reparer, le modifier 
e Localiser des fichiers, les cacher, les visualiser, les modifier 





Enfin la copie de sauvegarde pour QUE vos 
EU disquettes (et cassettes) protégées où pas. 
Comme l'Editeur, il reconnait 99 pistes, toutes 


les densites d'écriture, les pistes déformatées, Les 
secteurs non standard, effacés où de taille anormale. 


Des performances inédites à votre service : 
e Réparation automatique des secteurs endomagés 
e Gestion automatique des extensions mémoire 


600, titre V, 


CCR 
tbe] “ Q Wine 1. a test 
copie le sauvegarde 


’ 
Lecteur À vers Lecteur À 


e Une fonction catalogue qui permet de copier des 
fichiers séparément sur cassette ou disquette. 


Voyage au centre de la disquette... 


LORE U R L'Exploreur de Discology fournit toutes 


9 EXP Les informations sur la disquette : 
L Formatage, densité d'écriture, caractéristiques des 
secteurs, secteurs "plantés", plan d'occcupation des 
fichiers sur la disquette. 


Un outil passionnant pour découvrir tous Les 
secrets de vos disquettes et du controleur disque. 


Pour tous les "cracks'!' de l'Amstrad et ceux qui 
veulent le devenir. 





Discology est disponible sur disquette pour Amstrad CPC chez tous les très bons revendeurs. Vous pouvez aussi Le commander 
directement sans frais de port supplémentaires à : MERIDIEN Informatique - 11, rue Léandri - 83100 Toulon 

e Master Save est toujours disponible au prix de 190 F. Il reprend Les caractéristiques du Copieur de Disquette de Discology 
e Si vous désirez recevoir Discology et que vous possédez déja Master Save, vous ne payez que La différence. 


E COMMANDE CPC 





O JE DESIRE RECEVOIR DISCOLOGY AU PRIX DE 350 F 
O JE DESIRE RECEVOIR MASTER SAVE AU PRIX DE 190 F 
O JE POSSEDE DEJA MASTER SAVE ET JE DESIRE RECEVOIR DISCOLOGY. JE JOINS MA DISQUETTE MASTER SAVE ET JE NE PAYE QUE 160 F 





MON REGLEMENT : © CHEQUE QUE JE JOINS (LE PORT EST GRATUIT) © CONTRE REMBOURSEMENT (J'AJOUTE 25 F DE FRAIS DE PORT) 


NOM : PRENOM : 
ADRESSE : 
CODE POSTAL : VILLE : TEL (facultatif) : 


A retourner à : MERIDIEN Informatique - 11, rue Léandri - 83100 Toulon 

















Cilitus 





PALUNTI 


Pascal HIGELIN 


Dans ce dernier épisode, nous allons 
voir une fonction très utile pour réaliser 
de belles mises en page, il s'agit de la 
fonction texte. 

La fonction texte est représentée dans 
la grille des outils par la lettre A. Pour 
écrire un texte dans la fenêtre de tra- 
vail de Cherry-Paint, il faut par consé- 
quent sélectionner cet outil: le cur- 
seur se transforme alors en | majuscule 
lorsqu'il passe par-dessus la fenêtre de 
travail. Il faut alors cliquer à l'endroit où 
l'on souhaite écrire. À ce moment, le 
clavier est utilisable pour taper une 
suite de caractères. Le caractère 
d'espacement n'est pas utilisable puis- 
que la barre d'espacement sert à cli- 
quer, ce caractère a par conséquent 
été "transplanté” sur la touche \(back- 
slash). La touche DEL permet bien en- 
tendu d'effacer le dernier caractère 
tapé. 

Deux menus déroulants ont été rajou- 
tés au programme : il s'agit des menus 
déroulants TAILLE et STYLE qui 
étaient déjà présents mais ne fonction- 
naient pas : 

1-Le menu déroulant TAILLE permet 
bien entendu de sélectionner une taille 
d'écriture parmi les tailles suivantes : 
normal, double, triple, quadruple. La 
taille courante est précédée par le 
signe V dans le menu déroulant. Pour 
sélectionner une autre taille, il suffit de 
déplacer le curseur de manière à faire 
passer la taille sélectionnée au vidéo 
inverse et de relâcher la barre d'espace- 
ment. 


2-Le menu déroulant STYLE com- 
porte également quatre rubriques : 
GRAS, ITALIQUE, RELIEF, SOU- 
LIGNE. Dans ce menu déroulant, plu- 
sieurs rubriques peuvent être sélection- 
nées : ceci permet de réaliser des com- 
binaisons de styles: par exemple : 
gras + italique (figure 1). 

Du point de vue programmation, les 
styles peuvent être obtenus de ma- 
nière assez simple : 

— pour les caractères gras, il suffit d'af- 
ficher deux fois le caractère, le deu- 
xième affichage étant effectué avec un 
déplacement horizontal de un point de 
la taille courante, c'est-à-dire un à 
quatre points sur l'écran ; 

—pour réaliser les caractères ita- 
liques, la première ligne du caractère 
ne sera pas décalée, la deuxième ligne 
sera décalée de un point vers la droite, 
la troisième ligne de deux points, etc. 
— pour réaliser les caractères en relief, 
il faut afficher quatre fois le caractère 
en vidéo normale : d'abord décalé d'un 
point à gauche, puis d'un point à droite, 
d'un point vers le haut et enfin d'un 
point vers le bas, un cinquième carac- 
tère sera alors affiché en vidéo inverse 
sans décalage. On obtient ainsi un 
caractère blanc entouré d'un trait noir ; 
—les caractères soulignés sont en- 
core plus simples à réaliser : en effet, 
il suffit de superposer le caractère à af- 
ficher avec le caractère de souligne- 
ment. 


En réalisant successivement ces opé- 
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rations, il est par conséquent possible 
de combiner les différents styles de 
caractères. 

Voyons à présent comment saisir le 
code objet et comment l'inclure au pro- 
gramme. Le code est divisé en deux 
parties : le gestionnaire de menus dé- 
roulants supplémentaires et le program- 
me d'affichage de caractères, propre- 
ment dit. Pour saisir le code des menus 
déroulants, il faudra commencer par 
taper le chargeur hexa du listing 1, le 
sauver, puis le lancer. Vous pouvez 
alors entrer les codes hexa avec leur 
somme de contrôle selon la procédure 
bien connue maintenant. A la fin de la 
saisie, le code est sauvé sous le nom 
"CODE20.BIN". Pour intégrer ce code 
au programme existant, tapez puis 
lancez le programme Basic du listing 3. 
Le code d'affichage de caractères est 
comme le code de gestion du trait et 
des rectangles pleins et vides chargé 
en ‘“overlay”, c'est-à-dire qu'il pourra 
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éventuellement y avoir un accès dis- 
que avant l'écriture du premier carac- 
tère. Pour saisir ce code, commencez 
par modifier le chargeur hexa précé- 
dent, de manière à obtenir celui du 
listing 4 et lancez-le. A la fin de la 
saisie du listing 5, le code sera sauvé 
sous le nom "“CODE21.BIN". Pour 
implanter ce code dans le programme 
overlay, tapez, puis lancez le program- 
me Basic du listing 6. Pour terminer, il 
faudra saisir le programme Basic du 
lanceur (listing 7), ce programme va 
"connecter" les codes que vous venez 
de saisir au programme principal. 

En définitive, sur votre disquette, les 
seuls fichiers qui sont indispensables à 
la bonne marche de Cherry-Paint sont 
les suivants : 


PROG. BIN 
PROG1 . BIN 
PROG2.BIN 
VAR2.BIN 
SCR . BIN 
TR.BIN 
SH.BIN 
tous les autres fichiers qui ont été 
créés durant cette série d'articles ne 
sont que des fichiers intermédiaires. 
Voilà, j'espère que vous aurez pris 
plaisir à suivre cette série d'articles et 
je ne doute pas que Cherry-Paint vous 
rendra de bons et loyaux services. A 
une prochaine fois. peut-être. 





, 
Û 
, 
HEMORY 88000 


DEBUT=8&A550 
FOR I=0 TO 22 
SOMHMHE=O 
PRINT HEX#(DEBUT+I%x8);" 
FOR J=0 TO 7 
GOSUB 1270 
B$=A% 
GOSUB 1270 
A$=B$+A% 
PRINT" ‘"; 
A=VAL("S"+A$) 
POKE DEBUT+I*8+J,A 
SOMNHE=SOMME+A 
NEXT 
INPUT" ",N 


NEXT 

, 
SAVE"CODE20",B,8&A550O,8&BO 
END 

, 


CALL &BBBA 
A$=INKEYS$: 
AS=INKEYS: 
B=ASC(UPPERS$(AS$)) 


PRINT A$: 
RETURN@ 
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Liste À 


CHARGEUR HEXA 


IF N<>SOMME THEN PRINT"ERREUR"*:GOTO 1080 


IF A$<>"" THEN 1280 
IF A$="" THEN 1290 


IF B<48 OR (B>57 AND B<65) OR B>70 THEN 1280 


hs vous aurez saisi le code de ce sois, Cher 


pourra écrire sur l'écran en utilisant des lettres 
nornales 


doubles 
triples 


quadruples | 


Quatre styles de caractères sont également disponibles: 
gras 


1ta11que 
souligné 


Ces différents styles sont totalement nixables: 
on peut faire du ærvs Z47/1gme , ou mène du 
astra 141 sLL/TCL Er EI TEf: 








Ceci est bien-su ride 2 (ÉTTÉT 


AS5SO 06 20 4E 6F 72 
AS58 00 20 20 44 6F 
AS560 65 00 20 20 54 
A568 6C 65 00 20 20 
A570 64 72 75 70 6C 
A578 AS B4 AS BB AS 
AS80 20 47 72 61 73 
A588 49 74 61 6C 69 
AS59O 00 20 20 52 65 
A598 66 00 20 20 53 
ASAO 69 67 6E 65 00 
ASAB AS ES AS EA AS 
ASBO 50 AS 18 13 3E 
ASB8 AS 18 OC 3E 03 
ASCO 18 0S 3E 04 21 
ASC8 F2 AS 3E 20 32 
ASDO 59 AS 32 62 AS 
A5D8 36 06 C9 21 7F 
ASEO 21 86 AS 18 08 
ASE8 18 03 21 SA AS 
ASFO 77 C9 O1 00 00 
ASF8 00 00 00 00 00 
A600O 00 00 00 00 00 


LISTNG 2 





















655 


1253 





1027 











© 
DA 
© 

._ . 


1030 


1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 


LISTES  % 


IMPLANTE LE CODE DES 
MENUS DEROULANTS 


MEMORY 88000 
LOAD*VARI 

LOAD"CODE20 
1070 SAVE"VAR2",B,8&A400,8200'ET SAUVEGARDE LE TOUT 


PUIS LE NOUVEAU 


LISTNG 


CHARGEUR HEXA 


HEHORY 8&8000 


DEBUT-89SCF 
FOR 1=0 TO 93 
SOHME=0 
PRINT HEX$(DEBUT+1x8);" F3 
FOR J=0 TO 7 
GOSUB 1270 
B$=A%$ 
GOSUB 1270 
A$=B$%+A% 
PRINT" *; 
A=VAL("&"+A#) 
POKE DEBUT+Ix%x8+J,A 
SOMMHE=SOMHMHE+A 
NEXT 
INPUT* ",N 
IF NC>SOMME THEN PRINT"'ERREUR":GOTO 1080 
NEXT 


SAVE"CODE21",B,89S5SCF,753 
END 


CALL &BBB8A 
AS=INKEYS$: IF A#$C>"" THEN 
A$S=INKEYS: IF A$="" THEN 
B=ASC(UPPER#$ (AS) ) 

IF B<4B8 OR (B>57 AND B<65) OR B>70 THEN 1280 
PRINT A$; 

RETURN@ 


LISTNG S 


1280 
12S0 


95CF CD 06 B9 CD FA 95 3E 2F 1109 
95D7 CD 1E BB F5 CD 11 96 F1 1280 
9SDF 28 F4 AF 32 B6 98 11 60 956 
95E7 00 21 68 02 06 AB OE 20 362 
9SEF CD E4 83 DA O8 80 CD FA 1373 
95F7 95 18 DB 2A C7 A4 11 O6 820 
9SFF 00 19 22 CF A4 2A CS A4 837 
9607 11 OE O0 B7 ED 52 22 D1 776 
960F A4 C9 CD 06 BB DO FE 7F 1352 
9617 28 69 2A CF A4 11 70 O2 689 
961F ED 52 DO ES 21 65 96 BE 1230 
9627 Ei D8 FE 7E DO FS 3E C9 1537 
962F 32 AC 81 2A BF A4 ED 5B 1076 
93637 DS A4 ED 4B D3 A4 CD 84 1401 
963F 81 F1 FE SC 20 02 3E 20 844 
9647 CD CE 96 21 B6 98 34 ED 1217 
S364F SB CF A4 2A F2 AS 29 29 993 
9657 29 19 22 CF A4 CD AF 81 980 
965F 3E CD 32 AC 81 C9 21 F3 1095 
9667 2A BF A4 ED SB DS A4 ED 1339 
966F 4B D3 A4 CD 84 81 3E FF 1233 
9677 CD F6 8A CD AF 81 AF 32 1323 
967F B6 98 FB 3A B6 98 FE O0 1231 
9687 C8 F5 SE C9 32 AC 81 24 1101 
968F BF A4 ED SB DS A4 ED 4B 1372 
9697 D3 A4 CD 84 81 F1.3D 32 1193 
969F B6 98 21 2F A6 22 16 98 788@ 


CHARGE L'ANCIEN CODE 





964A7 SA F2 AS 6F 26 00 29 29 696 
S6AF 29 EB 2A CF A4 B7 ED 52 1191 
96B7 22 CF A4 SE 8F CD CE 96 1171 
S6BF 21 00 B6 22 16 98 CD AF 803 
96C7 81 3E CD 32 AC 81 C9 47 1019 
S6CF SA 91 AS FE 20 78 28 6A 920 
96D7 2A CF A4 ED SB Di A4 ES 1343 
S6DF DS FS 13 2B 2B 22 CF A4 968 
96E7 ED 53 D1 A4 CD 41 97 F1 1355 
96EF D1 E1i ES DS F5 13 23 23 1210 
96F7 22 CF A4 ED 53 Di A4 CD 1303 
S6FF 41 97 F1 D1 E1 ES DS FS 1578 
9707 1B 2B 2B 22 CF A4 ED 53 838 
970F D1 A4 CD 41 97 F1 Di El 1469 
9717 ES D5 FS 1B 23 23 22 CF 1025 
971F A4 ED 53 D1 A4 CD 41 97 1278 
9727 21 2F A6 22:16 98 F1 D! 904 
972F E1 22 CF A4 ED 53 D1 A4 1323 
9737 CD 41 97 21 O0 B6 22 16 692 
973F 98 C9 47 3A 7F AS FE 20 1060 
9747 78 28 15 2A CF A4 ED SB 922 
974F F2 AS E5 F5 19 22 CF A4 1311 
9757 CD 89 97 F1 Ei 22 CF A4 1364 
975F CD 63 97 C9 47 3A JA AS 1104 
9767 FE 20 78 28 19 2A DI1 A4 886 
976F ES ED SB F2 AS B7 ED 52 1466 
9777 22 Di A4 F5 3E SF CD 89 1151 
977F 97 F1 E1 22 D1 A4 CD 89 1366 
9787 97 C9 3C 6F 26 00 29 29 643 
978F 29 2B ED SB 86 A4 19 ES 964 
9797 24 D1 A4 7D 32 52 98 ED 1061 
979F 5B CF A4 CD 11 81 47 7B 1007 
97A7 32 51 98 D1 DD 21 00 70 858 
9S7AF OE O8 AF DD 77 1E CS 1A 790 
97B7 DD 77 OO AF DD 77 O1 C1 1049 
97BF CS CD 53 98 04 05 28 05 691 
97C7 CD SF 98 10 FB 34 86 A5 1140 
97CF FE 20 28 OC DD 7E 1E 3D 776 
97D7 FA DF 97 CD SF 98 20 F7 1419 
97DF 3SA F2 AS 47 CS 3A 52 98 1025 
97E7 FE AC 30 3D FE 21 38 39 935 
97EF 3A 51 98 32 50 98 3A 86 765 
97F7 AS FE 20 28 03 CD SF 98 1010 
97FF DD ES ES SA F2 AS 87 3C 1339 
9807 47 3A 50 98 FE OC 38 OA 693 
980F FE 4E 30 10 DD 7E OO 00 743 
9817 B6 77 3A 50 98 3C 32 50 781 
981F 98 23 DD 23 10 E3 El DD 1132 
9827 E1 O1 00 08 B7 ED 42 ES 949 
982F O1 00 CO B7 ED 42 E1 30 952 
9837 04 O1 BO 3F O9 DD 34 1E 556 
983F 3A 52 98 3C 32 52 98 CI 829 
9847 10 SA 1B C1 OD C2 BS5 97 929 
984F C9 00 00 00 CS FD 21 14 704 
9857 70 3SA F2 AS 47 OE 10 78 798 
985F 87 3C DD CB O1 16 DD CB 1066 
9867 00 16 C5 FD ES F5 FD CB 1402 
986F 00 16 FD 2B 3D 20 F7 F1 899 
9877 FD Ei 10 EF C1 OD 20 DF 1194 
987F ES DS 21 14 70 48 CB 21 915 
9887 OD 06 O0 B7 ED 42 OC 11 534 
988F 00 70 ED BO 06 06 3E 00 599 
9897 12 13 10 FC Di E1i C1 C9 1133 
989F F5 C5 DD ES 3A F2 AS 3C 1417 
9847 87 47 DD CB OO 1E DD 23 916 
98AF 10 F8 DD E1 C1 F1 C9 00 1345 
98B7 C9 00 96 00 00 CO 00 00 543@ 


LISTNG Ç 


1000 * 
1010 ‘* 
1020 * 
1030 ‘* 
1040 HEHOBY 88000 
1050 LOAD*PROG2 
1060 LOAD"CODE21 “AJOUTE LE CODE DE LA LETTRE 
1070 SAVE"PROG2",B,88E0D,2729 ‘ET SAUVE LE Tour @ 


IHPLANTE LE CODE 
DE LA LETTRE 


"CHARGE L'ANCIEN CODE COMMUTE 
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1020 
1030 
1040 HEHORY 87FFF 


1060 LOAD"PROG* 
1070 LOAD"PROGI* 
1080 LOAD"VAR2" 


1100 POKE 8802A,8C3 ‘BRANCHE 
1110 POKE 8802B,8O 

1120 POKE 8802C,B8AS 

1130 ‘* 

1140 POKE 88392,8C *BRANCHE 
1150 POKE 88393,8E 

1160 * 

1170 POKE 88394,81F ‘BRANCHE 
1180 POKE 88395,8E 


1010 * PROGRAMME LANCEUR 


LE 


LiISTAC F 


“CHARGE LE PROGRAMME PRINCIPAL 
*LA PREMIERE PARTIE DU CODE COMMUTE 
*ET LES VARIABLES 


*COHMHUTATEUR DE CODE* 


RECTANGLE VIDE 


RECTANGLE PLEIN 


1200 POKE 88390,8E4 ‘BRANCHE LE TRAIT 
1210 POKE 88391,811 

1220 

1230 POKE 8838E,8CF ‘BRANCHE LA LETTRE 


1240 POKE 8838F,815 

1250 

1260 POKE 8A433,11 ‘BRANCHE 
1270 POKE &A434,4 

1280 POKE 8A435,850 

1290 POKE &A436,8AS5 

1300 POKE 8A437,877 

1310 POKE 8A438,8AS 


1330 POKE 84439, 10 ‘BRANCHE 
1340 POKE &A43A,4 

1350 POKE 8A43B,87F 

1360 POKE &A43C,B&AS 

1370 POKE &A43D,8AS 

1380 POKE LRA43E, LAS 


Le] 
@ 
o 


1400 CALL 88000 


ASSOCIATIONS 


ET 


INFORMATIQUE 


LE 


HENU DEROULANT TAILLE 


HENU DEROULANT STYLE 


*LANCE LE PROGRAMME 





LOGICIELS SUR PCW AMSTRAD 


Gestion clients, adhérents... 

Edition de liste et étiquettes avec sélection 
multi-critères. Le complément de 
Locoscript. 

Prix HT : 300 Francs. 


Gestion de stock et fournisseurs pour 
magasin d'habillement (sous DBASE II. MD 
Ashton-tate), 2 lecteurs minimum. 

Prix HT : 1990 Francs. 


Gestion clients, adhérents, .… 

Multiples listes triées, totaux, notes, éti- 
quette, avec sélections multi-critères. Pour 
mailling, sorties compatibles Wordstar,.… 
Prix HT : 500 Francs. 


Gestion intégrée de deux fichiers. Un 
fichier client paramétrable lié à un bloc- 
note chronologique. Menus déroulants, 
souris, fenêtres (très rapide, écrit en Turbo 
Pascal). 

Prix HT : 1090 Francs. 


Documentations € 
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Revendeurs nous contacter. 


feront évidemment le nécessaire pour 
sauvegarder leurs acquis et même les 
développer. 


En conséquence : 


A. LE BELLEC — Commencer par définir les besoins 


réels. Remettre en cause les évidences 
et les habitudes. (Phases longues, diffi- 
ciles et délicates). 

— Faire des choix en fonction des utili- 
sateurs et par ordre décroissant 
d'importance. 


et article est une réflexion sur l’utilisation de l'Informatique Maintenance Logiciel Ordinateur. 

en milieu associatif. Il n’est pas anonyme mais son but n'étant _ Dans l'hypothèse d'un traitement 

pas de faire de la publicité, il ne cite pas les associations con- informatique par une société externe 
cernées. Si cette démarche intéresse certains lecteurs ils pourront donc très souvent plus importante que 





écrire à la revue qui transmettra. 


Avant de choisir un logiciel, un ordina- 
teur ou d'opter pour une entreprise de 
traitement informatique, une association 
doit commencer par une réflexion sur 
l'informatique elle-même. Le nouveau 
moyen de connaissance est à la fois un 
langage et un outil. 


Un langage : 

— |l a pour fonction de faire communi- 
quer des hommes entre-eux, c'est le 
contraire d’un code chiffré. 

— Il s'’acquiert autant par l'apprentis- 
sage et la pratique que par l'étude 
approfondie. 

— Il doit permettre à chaque groupe de 
s'exprimer. 


En conséquence : 

— On n'installe pas un ordinateur dans 
un bureau sans que chacun soit capable 
de s’en servir intelligemment. 


— Les intervenants futurs doivent inter- 
venir en amont des choix et des déci- 
sions irrévocables. 

— La valeur du technicien chargé de la 
mise en service est inversement propor- 
tionnelle à la durée où il reste 
indispensable. 


Un outil : 

— Il répond à un besoin, sa complexité 
ou ses ‘’étonnantes’’ capacités ne sont 
pas les seuls critères de choix. 

— Il doit être disponible et n’est pas à 
classer dans les emplois réservés. 

— Il est destiné à servir à tous. 

— Si la maintenance de l'outil coûte 
plus cher que l'outil lui-même et s'avère 
le poste le plus important c'est que le 
pouvoir change de main. Si de plus cette 
maintenance est extérieure à l'entreprise, 
c'est la direction de l'entreprise qui 
change. De plus ces nouveaux pouvoirs 


l'association, au travers des promesses, 
tenir compte des contraintes, des délais, 
des déplacements. Il s'agit le plus sou- 
vent d’un transfert de moyens et de 
compétences. 


Deux solutions : . 

1) Les associations auraient intérêt à 
mettre en commun leurs besoins et 
échanger leurs solutions avant de faire 
des choix importants. Notre association 
d'aides-ménagères a commencé seule 
ses recherches et ses essais en rassem- 
blant quelques bonnes volontés. Deux 
autres associations l'on rejoint pour 
bénéficier de ses acquis, renforcer ses 
moyens et former un ensemble 
dynamique. 

2) Nombreux sont les ‘’mordus'" de 
Micro-informatique qui trouveraient un 
terrain d'expérience pour concevoir et 
mettre au point des programmes spéci- 
fiques, accessibles, adaptables et utilisa- 
bles avec un minimum de formation. 






CIPCW 8256 


D PCW 8512 5925 F 
O'ext. 256 K pour 8256 450 F 
D2% lect. pcw 8256 1690 F 
O stylo optique 890 F 
Ointert RS 232/centronic 690 F 
[] housse (mon. + clavier + imp} 299F 
D ruban imprimante (par 2) 198F 
O disquette 3" (DF-DD) 19F 
Cl allonge pew (imp. + al} 2175F 







Disquettes vierges 




















à l'unité 35F 

Par ADP sesas à ie ir nées . 280F 
Cassettes vierges C20 SA 

les Bars 2 ne TR ANA 45F 

les10....... ns 8 

















allonge alimentation + vidéo 








ne soyez plus collé à l'écran, rallonge 464. 130 + 
One soyez plus collé à l'écran, rallonge 6128 180 F 
CO housse pour moniteur + clavier 175F 


{préciser couleur ou monoc.} 








CO ruban imprimante DMPI (par 2) 198F 
CO ruban imprimante DMP 2000 99F 
adaptateur peritel tous CPC 450F 





Câble imprimante AMSTRAD 
Vous permet de connecter votre AMSTRAD à n'im 
porte quelle imprimante au standard “centronic" 
O cäble imprimante 





150 F 















































22, rue de Montreuil 94300 VINCENNES -— Tél. : (1) 43.28.22.06 


OUVERT DU MARDI AU VENDREDI de 10h 30à13het de 15h à 19h, LE SAMEDI de 10h 30à19h 


REVENDEUR OFFICIEL AMSTRAD FRANCE 


DIGITALISEUR ARA 

Ce digitaliseur vous permettra non seulement de 
digitaliser des images vidéo provenant d'une ca- 
méra mais aussi des images provenant direc- 
tement de votre T.V. Un logiciel très complet 
vous permettra d'embellir, retoucher, stocker. 
les images digitalisées. Entièrement français. 

U digitaliseur ARA . . .. 


MULTISERVI 
Enfin une carte E/S ne nécessitant aucun mon- 
tage, aucun relais. De plus le logiciel fourni 
avec cette carte vous permet de commander 
réveil, alarme, spot. tout appareil électrique 
de votre choix sans être un “crack” de la pro- 
grammation. Entièrement français 


[] Multiservi 990 F 


produits DART 
STYLO OPTIQUE : De loin le meilleur de tous, 
le stylo optique DART à fibre optique vous 
permettra de réaliser de véritables chef d'œu- 
vres. Fourni avec logiciel d'exploitation très 
complet. 
[1 stylo optique . . .. 
SCANNER GRAPHIQUE : Ce scanner, très sim- 
ple d'utilisation, vous permettra de digitaliser 
toute image sur support papier, à partir de la 
DMP 2000. Fourni avec un logiciel d'exploita- 
tion très puissant 


E] scanner graphique “DART" . 190F 


Le “must” pour les amateurs de graphisme. Utilisée 
par la majorité des créateurs de logiciel cette tablette 
vous séduira par sa simplicité d'utilisation et la qualité 
“top niveau” des résultats obtenus. (ex. options : faire 
des points, traits, boîtes, cercles. texte. remplir, "zoom". } 


LJ graphiscop 


[] joystick compétition 
PRO5000 170F 


INTERFACE IV POUR AMSTRAD, C 
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SUR 


Ë Ë de Hifi 








(clavier AZERTY) 





CPC 6128 coul + impr. 
DMP 2000 


SUPER PROMO 5490 F 


D CPC 6128 coul 

] CPC 6128 mon 

} CPC 464 coul . 

_] CPC 464 mon … 

] Imprimante DMP 2000 
imprimante DMP 2000 
interface RS 232 (Amstrad) 
souris ; 
Ter lecteur de disquettes ; 
LU] 2ème lecteur de disquettes 
[] mangétophone (avec câble) 
[câble magnéto 


3990 F 
2990 F 
2990 F 
1990 F 
1690 F 
1990 F 
590 F 
690 F 
1990 F 
1590 F 
340 F 

50F 


(: 
[ 
[ 
[ 
[ 
[ 
[ 
[ 


] 
] 
] 
] 





“ne lui manque que la parole”, synthé. VOCI la lui donne ! 
Très performant ce synthétiseur vocal va vous permettre 
de rendre votre ordinateur plus bavard qu'un politicien en 
campagne ! 

L] synthétiseur vocal (prog. sur cassette) 
UT synthétiseur vocal prog. sur disquette} 
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95120 ERMON 


Fabien SALIS 


Amstraduction est un logiciel éducatif 
qui permet l'apprentissage des verbes 
irréguliers anglais par la méthode des 
quatre colonnes : infinitif, prétérit, par- 
ticipe et traduction. 

L'ordinateur choisit de manière aléatoire 
10 verbes parmi les 165 que contient le 
dictionnaire, facilement modifiable par 
l'utilisateur. L'élève choisit ensuite le 
niveau de difficulté en fonction duquel il 





recevra de l’aide sur 3,2 ou une seule 
colonne. Il choisit ensuite la colonne sur 
laquelle il veut se perfectionner. Aux 
niveaux 2 et 3, après l'entrée d’une pro- 
position, l'ordinateur complète la ou les 
colonnes vides. 

En fin d'exercice, une note vous sera 
attribuée selon le nombre de réponses 
exactes que vous aurez obtenu. Un nou- 
veau menu vous permettra alors de quit- 





! 

| 

l te 

1 l'y 
ter, de continuer ou de revenir au menu 
principal. 
Dans l'option dictionnaire, vous pouvez 
effectuer la recherche de l'infinitif, du 
prétérit, du participe ou de la traduction 
en entrant l’un de ces éléments. 
Vous pouvez également consulter entiè- 
rement ou partiellement, (en pressant le 
point du pavé numérique), la liste des 
verbes. 


10 ‘ AMSTRADUCTION Par Fabien SALIS 

29 ‘ 

90 ON BREAK GOSUB 3800 

60 INK 0,6: INK 1,1:INK 2,24:INK 5,0 

70 MODE O:FOR y=0 TO 640 STEP S50:READ a: 
A=A*40:FOR X=1 TO 20:C=RND*#15:PLOT X+Y,0 
,C:FLOT O,X+V,C:DRAUWR A#16,0:PLOT X,50+% 
+y,C:DRAUWR A*%16,0:DRAUWR O,A:PLOT S50+x+y, 
X,C: DRAWR O,A:NEXT:NEXT: DATA 10,10,10,10 
519,10,10,190,10,19,10,10,10,10,10,10,10 

80 LOCATE 5,4:PAFER 1:PEN 2:FRINT "Fabie 
n SALIS":LOCATE 6,7:PAPER 3S:PEN 2:PRINT 

“presente":LOCATE 3,13:PAPER Z:FEN 1:FRI 
NT “ AMSTRADUCTION “":LOCATE &3,12:FRINT 
“":LOCATE 3,14:PRINT " 


100 RESTORE 140:FOR n=1i TO 30 
110 READ S 


120 SOUND 1,5,25,15 
130 SOUND 2,S/4,25,13,11,1:NEXT 

140 DATA 319,239,0,239,253,239,213,0,190 
,190,213,190,0,179,179,190,142,0,159,179 
,9:190,253,239,213,0,190,190,213,239 


1590 LOCATE 10,24: PEN S:PAPER 7:FRINT "LE 
S REGLES (O/N) 7?" 

160 a$=INKEYS 

170 IF A$="0" OR A$="o" THEN FOR r=i T 


0 30: LOCATE 1,1:PRINT CHR$#(11):LOCATE 40 
529: PRINT CHR$ (32) = NEXT:FOR r=i TO 30:PR 
INT CHR$(10):NEXT:G60OT0O 210 

180 IF A$S="N" OR AS$="n" THEN FOR r=i TO 
30: LOCATE 1,1:FRINT CHR$(i11):LOCATE 40,2 
SPRINT CHR#&(32):NEXT:FOR r=i TO SO: PRIN 
T CHR$(10) :NEXT:GOTO 270 

190 GOTO 160 

200 REM ============REGLES============== 


210 MODE 1:LOCATE 7,1:1INKH O,1: INK 

NK 2,20: INK 3,6:PAPER O:FEN 1 

220 PEN 1:PRINT'"AMSTRADUCTION":LOCATE 7, 

22:PRINT"=============";: 1 OCATE 1,5 

230 FRINT" AMSTRADUCTION est un logiciel 
educatif d'anglais.ll vous assistera da 

ns votre progression en vous enseignant 
les ver- -bes irreguliers ou en vous pe 
rmettant la recherche d'un des 165 verb 

es grace a DICO." 

240 PRINT:PEN 2:FRINT'"Ce logiciel vous p 

ropose de travailler sur 3 niveaux diff 

erents,puis sur l'une des 4 colonnes hab 
ituelles: infinitif,preterit 
Participe, traduction" 

299 FRINT:PEN 3: PRINT"je vous previens 

que vous n'‘'etes pas au bout de vos peine 

s car l'ordinateur choisit aleatoire 

ment 10 verbes sur 165!" 

260 PEN 1:LOCATE 10,24:PRINT "“pressez un 

e touche.":a$=INKEYS:CALL &BBO6:FOR R=i 

TO SO: LOCATE 1,1:PRINT CHR$(11):NEXT:GOT 

0 270 

210 REM =====SsJEU OÙ  DICO====s=ss2=22s-2-s 

280 INK O©,1: MODE 2:INK 1,25:BORDER 24:PA 

FER 1:PEN O: MODE 2: LOCATE 10.S3:PRINT "P 
ROPOSIT I ON S:":LOCATE 20,10:PRI. 
NT “—-1- DICTIONNAIRE DES VERBES IRREGULI 
ERS":LOCATE 20,12:PRINT "-2- JEU DE TRAD 
UCTION" 

290 P$=INKEYS 

S00 IF F$="1" THEN FOR R=1 TO SO: PRINT C 
HR$ (10) :NEXT:RESTORE 1450:G0T0 3310 

S10 IF P$="2" THEN 340 

320 GOTO 290 

330 REM ========NIVEAU============== 

340 FOR t=1 TO 3O0:PRINT CHR$&(10):NEXT:IN 


0 00 
23 


1,24:1 





K 0,1:MODE 2:INK 1,25:BORDER 24:PAFER 1: 

FEN O 

350 MODE 2:LOCATE 10,3:PRINT "C H O I X 
DU N I VE A U":LOCATE 20,10:PR 

INT "“-1- DEHUTANT (3 AIDES)":LOCATE 20,1 

2:PRINT “"-2- AMATEUR (2 AIDES)":LOCATE 2 

O,14:PRINT "“-3- EXPERT (1 AIDE)" 

360 PH=INKEYS 

370 IF P$="1" OR P$="2" OR F$="3" THEN 4 

00 

380 GOTO Z460 

390 REM ==========CHOIX DE COLONNE====== 

400 FOR t=1 TO SO:LOCATE 1,1:FRINT CHRS#( 

11):NEXT:INK O,1:MODE 2:1INK 1,25: BORDER 

24:PFAFER 1:PEN O 

410 MODE 2:LOCATE S,3:PRINT "VERBE 

S IRRKREGULIERS “ 

420 LOCATE 20,10:FRINT "“<1> Trouver l'in 

finitif." 

430 LOCATE 29,12:PRINT "<2> Trouver le p 

reterit." 

440 LOCATE 20,14:PRINT "<3> Trouver le p 

articipe passe." 

450 LOCATE 20,16:PRINT "“<4> Trouver la t 

raduction." 

460 FAPFER O:PEN 1 

470 LOCATE 15,20:a$=INKEYS 

480 IF a$="1" THEN 1270 

490 IF a$="2" THEN 10350 

900 IF a$="z" THEN 790 

910 IF a$="4" THEN 550 


520 IF a$="" THEN 470 

530 GOTO 470 

540 END 

550 REM=========TRADUCTION===========2=2== 


560 FOR t=1 TO 30:PRINT CHR$(10):NEXT 

570 INK O0,26:INK 1,2:BORDER 6 

580 CLS:n=164: DIM TM$(n):S=0:Q=3 

590 FOR A=1. TO 11:1F A=11 THEN 3180:Q=Q+ 

2:F=0:N=164 

600 FOR t=1 TO n:RESTORE 1S500:NEXT t 

610 x=INT (RND#n+1)+1+INT (RND#n+1)+1-INT( 

RND#n+1) +1 

629 IF x>164 OR x<0O THEN 610 

630 IF TM$(x)<>"" THEN GOTO 610 

640 GOSUB 3770 

650 1F p$="1" THEN FAFER 1:PEN O:LOCATE 
1,Q:PRINT “ “;A$;" “":LOCATE 20,Q:PRINT " 
":B$;" ":LOCATE 40,Q:FRINT " ";3CH;" "2: 

GOTO 680 

660 IF p$="2" THEN LOCATE 1,Q:FRINT “ ":; 

A$;" ":LOCATE 20,Q:PRINT “ ";3B$;" “:LOCA 

TE 40,Q:FAFER O:FEN 1:PRINT "= 

—----":PAFER 1:PEN 0:GO0T0 680 

670 IF p$="3" THEN LOCATE 1,Q:PRINT “ ‘; 

A$;" ":LOCATE 20,Q:PAPER O:PEN 1:PRINT “ 

= —— “: LOCATE 40,Q:PRINT "--—- 

————————————— L : PAFER 1:PEN 0:GOTO 680 

680 LOCATE 69,Q 

690 INFUT 2Z$:2Z%=UPPERS (2%) 

700 LOCATE 15,22:IF Z$="" THEN 680 

710 IF Z$=-D$ THEN F=1 ELSE F=0 

720 IF F=i THEN LOCATE 79,Q: PRINT CHR#( 

228) :FOR i=1 TO 2:FOR j=200 TO 1 STEP -1 


24 


O:SOUND 2,j,1,15:NEXT j,i:s=s+1 
730 IF F=0 THEN LOCATE 79,Q:PRINT “#":50 
UND 1,119%5,50,15:SOUND 1,123#5,49,153 :L 


OCATE 60,Q:FPRINT “ ";D#;" 

740 IF p$="2" THEN FAPER 1:PEN 0:LOCATE 
40,Q: PRINT " "5C$;" 

750 IF p$="3" THEN FAPER 1:FEN O:LOCATE 
20,Q:PRINT “ “3B$;" “:LOCATE 40,Q:PRINT 
LL LL È C$; LL] LL] 


760 FAFER O:FEN 1 

779 NEXT A 

780 END 

790 REM========PARTICIFE========-==-==-===-= 
800 FOR t=1 TO ZO:PKINT CHR#(10):NEXT 
810 INK O,4:INK 1,26:BORDER 2 

820 PAFER O:PFEN 1 

830 CLS:n=164: DIM TM$(n):S=0:Q=3:FOR A=1i 
TO 11:1F A=11 THEN 53180:Q=-Q+2:F-0: N=164 
840 FOR t=i TO n:RESTORE 1S5OO0:NEXT t 

850 x=INT (RND#n+1)+1+INT (KRND#n+1)+1-INT( 
RND#n+1)+1 

8690 IF x>164 OK x<O THEN 850 

870 IF TM(zx) <> "" THEN GOTDO 850 

880 GOSUE 3770 

890 IF p$="i" THEN FAFER 1:FEN 0:LOCATE 


1,Q:PRINT “ "5A$;" ":LOCATE 20,Q:PRINT “ 
“:B$;" ":LOCATE 60,Q:PRINT " ";3D$;" ":G 
OTO 920 | 
900 IF p$="2" THEN FAFER 1:PEN O0:LOCATE 
1,Q:PRINT “ “:A$;" “:LOCATE 20,Q:PRINT " 
":B$;" ":FAFER O:PEN 1:LOCATE 60,Q:FRIN 
To —— “: PAPER 1:FEN 0:GOTO 
920 
910 IF p$="3" THEN FAFER 1:FEN O:LOCATE 
1,Q:PRINT “ "“;A$;" ": PAPER O:FEN 1:LOCAT 
E 20,Q:PRINT “: LOCATE 6 
OO PRINT “: PAFER 1:PEN 


0:GOTO 920 
920 LOCATE 40,Q 

930 INFUT 2Z$:Z$-=UFPERS (Z$) 

940 LOCATE 15,22:1F Z$="" THEN 920 

950 IF Z$=C$ THEN F=1 ELSE F=0 

960 IF F=1 THEN LOCATE 79,Q: FRINT CHR$( 
228):FOR i=1 TO 2:FOR j=200 TO 1 STEF -1 
O:SOUND 2,5,1,15:NEXT j,i :sS=s+1 

970 IF F=0 THEN LOCATE 79,Q:FRINT "#":5S0 
UND 1,119*5,50,15:SOUND 1,123%5,49,13 :L 


OCATE 40,Q:PRINT " "sCss"  " 

980 IF p$="2" THEN FAPER 1:PEN O:LOCATE 
60,Q:FRINT " “";D$;" " 

990 IF p$="3" THEN FAFER 1:PEN O:LOCATE 
20,Q:FRINT " ":B$;" ":LOCATE 60,Q:FRINT 
-u LL : D$; “ LL] 


1900 FAFER O:FEN 1 

1010 NEXT A 

1920 END 

1030 REM=========PRETERIT=============2== 
1040 FOR t=1i TO SO: PRINT CHR(10):NEXT 
1050 INK O,1:INK 1,24: BORDER 1 

1060 PAFER O:PEN 1 

1070 Q=3 

1080 CLS:n=164: DIM TMb(n):S=0:Q 
1 TO 11:1F A=11 THEN 3180: Q=Q+2 
4 





10906 FOR t=1 TO n:RESTORE 1SO00:NEXT t 
1100 x=INT (RND#n+1)+1+INT (RND#n+1)+1-—INT 
CRND#n+1) +1 

1110 IF x>164 OR x<O THEN 1100 


1120 IF TM$(x) 
1130 GOSUB 3770 
1140 IF p$="1" THEN LOCATE 1,Q:PRINT “ " 
5A$;" ":LOCATE 40,Q:PRINT “ ";C$;" “:LOC 

ATE 60,Q:PRINT “ “;:D$;" " :GOTO 1170 
1150 IF p$="2" THEN LOCATE 1,Q:PRINT “ 
"sAS;" ":LOCATE 40,Q:PAPFER O:FEN 1:FRINT 
ee “: PAPER 1:FEN O:LOCATE 
60,Q:PRINT “ "“;D$;" " :GOTO 1170 

1160 IF p$="3" THEN LOCATE 1,Q:FRINT " 
"5A$;" ":LOCATE 40,Q:PAPER O:PEN 1:FRINT 
ee ——— “:LOCATE 60,Q:PRINT “- 

= ——— “: PAPER 1:FEN 0:GOTO 1170 
1170 LOCATE 20,4 

1180 INFUT 2Z$  :Z%-=UFFERS (Z$) 

1190 LOCATE 15,22:1F Z$="" THEN 1170 
1200 IF 2Z$=B$ THEN F=1 ELSE F=0 

1210 IF F=1 THEN LOCATE 79,Q:PRINT CHRS$( 
228):FOR i=i TO 2:FOR j=200 TO 1 STEF -1 

O:SOUND 2,3j,1,15:NEXT j,i :s=s+1 

1220 IF F=0 THEN LOCATE 79,Q:FRINT "#":9 

OUND 1,119%5,50,15:SOUND 1,123#5,49,13 : 

LOCATE 20,Q:FRINT “ ";p$;" 

1230 IF p$="2" THEN FAFER 1:PEN O:LOCAT 


<> "“" THEN GOTO 1100 


E 40,Q:FRINT “ ";C#;" " 
1240 IF p$="3" THEN PAPER 4:FEN 0:LOCATE 
40,Q:FRINT " ";C$;" “:LOCATE 60,Q:PRINT 
LL] ne D$; “ “… 

1250 NEXT 

1260 END 

1270 REM ======INFINITIF=============2== 


1280 FOR t=1 TO SO: FRINT CHKRK$(10):NEXT 
1290 INK O,0:INK 1,18:EHORDER 19 

1500 CLS:n=164:DIM TM$(n):S=0:Q=3: FOR A= 
1 TO 11:1F A=11 THEN 3180:Q-=-Q+2:F=-0: N=1é 

À 

1310 FOR t=1 TO n:RESTORE 15O00:NEXT t 
1320 K=INT (KRND#xn+1)+1+INT (KND#n+1)+1-INT 
CRND#n+1)+1 

1330 IF x>164 OR x<O THEN 1320 

1340 1F TM$S(x) <> “" THEN GOTO 1320 

135350 GOSUB 5770 

1360 IF p$="1" THEN LOCATE 20,Q:FRINT " 
“:B$;" “":LOCATE 40,Q:PRINT " "3C$;" ":LO 

CATE 60,GQ:PKINT " ";:D$;" ":GOTO 1390 
1370 IF p$="2" THEN LOCATE 20,Q:PRINT " 
"sB$;" ":LOCATE 40,Q:PRINT " "3;CH;" ":LO 

CATE 60,Q:PAPFER O:PEN 1:PRINT "—------—-— 

= ——— ":FAPER 1:PEN O:GOTO 1390 

1580 IF p#="5" THEN LOCATE 20,Q:PRINT " 
":B$;" ":LOCAITE 40,Q:FAFER O:PEN 1:FRINT 
Nommesesessssss.s “e LOCATE 60,U:FRINI "— 

= "“: PAFER 1:PFEN O:G60T0 1:90 


1390 LOCATE 1,Q:INPUT Z$:2Z$=UPPERS (2%) 
1400 LOCATE 15,22:1F Z$="" THEN 1390 
1410 IF Z$=A$ THEN F=1 ELSE F=0 

1420 IF F=1 THEN LOCATE 79,Q: PRINT CHRS# 
(228):FOR i=1 TO 2:FOR j=200 TO 1 STEP - 
10: SOUND 2,3i,1,15:NEXT j,i:s=s+1 


1430 IF F=0 THEN LOCATE 79,Q:PRINT "#":5 
OUND 1,119%5,50,15:SOUND 1,123%5,49,15 : 
LOCATE 1,Q:PRINT “ “sags;s" 

1440 IF p$="2" THEN PAPER 1:PEN O:LOCATE 
60,Q:PRINT “ "“;D$;" " 

1450 IF p#$="3" THEN FAPER 1:FEN O:LOCATE 
40,Q:PRINT " ";C$;" ":LOCATE 60,Q:PRINT 
“ “ ; D#; LL ” 

1460 FAPFER O:FEN 1 

1470 NEXT 

1480 END 

1490 REM ===========DATASG===========222- 


1500 DATA ARISE, AROSE, ARISEN, S'ELEVER 
1510 DATA AWAKE, AWOKE, AWOKE , S'EVEILLER 
1520 DATA BE,WAS, BEEN, ETRE 

1530 DATA BEAR, BORE, BORNE, SUPPORTER 
1540 DATA BEAT, BEAT, BEATEN, BATTRE 

1550 DATA BECOME, BECAME, BECOMEN, DEVENIR 
1560 DATA BEGIN, BEGAN, BEGUN, COMMENCER 
1570 DATA BEND, BENT, BENT , COURBER 

1580 DATA BET,BET, BET, PARIER 

1590 DATA BID, BADE, BIDDEN, ORDONNER 

1600 DATA BIND, BOUND, BOUND , LIER 

1610 DATA BITE, BIT, BITTEN, MORDRE 

1620 DATA BLEED, ELED, BLED, SAIGNER 

1630 DATA BLOW, BLEW, BLOWN, SOUFFLER 

1640 DATA BREAK, BROKE, BROKEN, BRISER 
1650 DATA BREED, BRED, BRED, ELEVER 

1660 DATA ERING, BROUGHT, BROUGHT , AFFORTER 
1670 DATA BUILD, BUILT, BUILT, CONSTRUIRE 
1680 DATA EURN, EURNT, BURNT , BRULER 

1690 DATA BURST, EURST, BURST, ECLATER 
1700 DATA BUY, BOUGHT, BOUGHT , ACHETER 
1710 DATA CAST,CAST, CAST, JETER 

1720 DATA CATCH, CAUGHT, CAUGHT, ATTRAFER 
1730 DATA CHOOSE, CHOSE, CHOSEN, CHOISIR 
1740 DATA CLING, CLUNG, CLUNG, S  ACCROCHER 
1750 DATA COME,CAME, COMEN, VENIR 

1760 DATA COST,COST, COST, COUTER 

1770 DATA CREEP, CREPT, CREPT, RAMFER 

1780 DATA CUT, CUT, CUT, COUPER 

1790 DATA DEAL, DEALT, DEALT, NEGOCIER 
1800 DATA DIG, DUG, DUG, CREUSER 

1810 DATA DO,DID, DONE, FAIRE 

1820 DATA DRAW, DREW, DRAWN, DESSINER 

1830 DATA DREAM, DREAMT, DREAMT , REVER 
1840 DATA DRINK, DRANK, DRUNK, BOIRE 

1850 DATA DRIVE, DROVE, DRIVEN, CONDUIRE 
1860 DATA DWELL, DWELT, DWELT, RESIDER 
1870 DATA EAT,ATE, EATEN, MANGER 

1880 DATA FALL,FELL, FALLEN, TOMBER 

1890 DATA FEED,FED,FED, NOURRIR 

1900 DATA FEEL,FELT,FELT,EFROUVER 

1910 DATA FIGHT, FOUGHT, FOUGHT, COMBATTRE 
1920 DATA FIND, FOUND, FOUND, TROUVER 

1930 DATA FLEE,FLED,FLED,FUIR 

1940 DATA FLING, FLUNG, FLUNG, LANCER 

1950 DATA FLY,FLEW, FLOWN, VOLER 

1960 DATA FORBID, FORBADE, FORBIDDEN, INTER 
DIRE 

1970 DATA FORGET, FORGOT, FORGOTTEN, OUBLIE 
R 

1980 DATA FORGIVE, FORGAVE, FORGIVEN, PARDO 


000 
25 





NNER 
1990 
2000 
2010 
2020 
20:50 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2150 
2140 
KR 

2190 
2160 
2170 
2180 
2190 
2200 
2210 
2220 


2230 
2249 
2250 
2260 
2279 
2280 
2290 
2300 





2490 
29500 
2510 
2520 
2530 
2540 
2550 
2560 
2970 
2580 
2990 
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FREEZE, FROZE, FROZEN, GELER 
GET, GOT, GOT,OBTENIR 
GILD,GILDED,GILT,DORER 

GIVE, GAVE, GIVEN, DONNER 

GO, WENT, GONE, ALLER 

GRIND, GROUND , GROUND , MOUDRE 
GROW, GREW, GROWN, FOUSSER 

HANG, HUNG, HUNG , SUSPENDRE 
HAVE, HAD, HAD, AVOIR 

HEAR, HEARD, HEARD, ENTENDRE 

HIDE ,HID,HIDDEN, CACHER 
HIT,HIT,HIT,FRAPFER 

HOLD, HELD, HELD, TENIR 

HURT , HURT, HURT , BLESSER 
KEEP,KEPT,KEFT, GARDER 

KNEEL , KNELT , KNELT, S'AGENOUILLE 


KENIT,KNIT,KNIT, TRICOTER 
KNOW, ENEW, ENOWN, SAVOIR 
LAY,LAID,LAID, POSER 
LEAD, LED, LED, MENER 

LEAN, LEANT, LEANT, S ‘AFFUYER 
LEAP, LEAPT, LEAFT, BONDIR 

LEARN, LEARNT, LEARNT , AFFRENDRE 
LEAVE, LEFT, LEFT, QUITTER 

LEND, LENT, LENT , PRETER 
LET,LET,LET,LAISSER 
LIE,LAY,LAIN,ETRE COUCHER 
LIGHT,LIT,LIT,ALLUMER 

LOSE, LOST, LOST, FERDRE 

MAHE , MADE , MADE, FAIRE 

MEAN, MEANT , MEANT, SIGNIFIER 
MEET, MET,MET, RENCONTRER 
MISTAKE,MISTOOK,MISTAKEN,SE ME 


MOW, MOWED , MOWN, TONDRE 
FAY,PAID,FAID, PAYER 

PUT, FUT, PUT, METTRE 

READ, READ, READ, LIRE 

REND, RENT, RENT, DECHIRER 
RID,RID,RID, DEBARRASSER 
RIDE, RODE, RIDDEN, ALLER 
RING, RANG, RUNG, SONNER 

RISE, ROSE,RISEN,SE LEVER 
RUN, RAN, RUN, COURIR 

SAW, SAWED, SAWN, SCIER 

SAY, SAID,SAID, DIRE 

SEE, SAW, SEEN, VOIR 

SEEK, SOUGHT , SOUGHT , CHERCHER 
SELL, SOLD, SOLD, VENDRE 

SEND, SENT, SENT, ENVOYER 

SET, SET, SET, PLACER 

SEW, SEWED, SEWN, COUDRE 

SHAKE , SHOOK., SHAKEN, SECOUER 
SHEAR, SHEARED , SHORN, TONDRE 
SHED, SHED, SHED , VERSER 

SHINE , SHONE, SHONE, BRILLER 
SHOE , SHOD, SHOD,SE CHAUSSER 
SHOOT, SHOT, SHOT, TIRER 

SHOW, SHOWED , SHOWN , MONTRER 
SHRINK, SHRANK, SHRUNK, RETRECIR 
SHUT, SHUT, SHUT , FERMER 

SING, SANG, SUNG, CHANTER 


2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2719 
27290 
27230 
2740 
2750 
2769 
2770 
2780 
2790 
2800 
2810 
2820 
28530 
2840 
ER 

2850 
2860 
28790 
2880 
2890 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
2980 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


SINK, SANK, SUNK , SOMBRER 
SIT,SAT,SAT,ETRE ASSIS 
SLIT,SLIT,SLIT,FENDRE 

SLEEP, SLEPT, SLEPT, DORMIR 
SLIDE, SLID,SLID,GLISSER 
SLING, SLANG, SLUNG, LANCER 
SMELL, SMELT, SMELT, SENTIR 

SOW, SOWED, SOWN, SEMER 

SPEAK, SPOKE, SPOKEN, PARLER 
SFEED, SPED, SPED, HATER 

SFELL, SFELT, SPELT, EPELER 
SPEND, SFENT, SPENT , DEPENSER 
SFILL, SFILT, SPILT,REFANDRE 
SPIN, SFUN, SPUN, FILER 

SFOIL, SPOILT, SPOILT, GATER 
SPREAD, SPREAD, SPREAD, ETENDRE 
SFRING, SFRANG, SPRUNG, JAILLIR 
STAND, STOOD, STOOD,ETRE DEBOUT 
STEAL, STOLE, STOLEN, VOLER 
STICK, STUCK, STUCK, COLLER 
STING, STUNG, STUNG, FIQUER 
STINK, STANK, STUNK, PUER 

STREW, STREWED, STREWN, JONCHER 
STRIKE, STRUCK, STRUCK, FRAFFER 
STRIVE, STROVE, STRIVEN, S'EFFORC 


SWEAR, SWORE , SWORN, JURER 
SWEEP, SWEPT, SWEPT, BALAYER 
SWELL, SWELLED, SWOLLEN, ENFLER 
SWIM, SWAM, SWUM, NAGER 

SWING, SWUNG, SHUNG, HALANCER 
TAKE, TOUK, TAKEN, PRENDRE 

TEACH, TAUGHT, TAUGHT, ENSEIGNER 
TEAR, TORE, TORN, DECHIRER 

TELL, TOLD, TOLD, DIRE 

THINK, THOUGHT , THOUGHT , FENSER 
THROW, THREW, THROWN, LANCER 
THRUST, THRUST, THRUST , FOUSSER 
TREAD, TROD, TRODDEN, FOULER 
UNDERSTAND, UNDERSTOOD , UNDERSTO 


OD , COMPRENDRE 
2990 DATA UNDERTAKE, UNDERTODUK , UNDERTAKEN 
, ENTREFRENDRE 


3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


RETIRER 


3080 
3090 
3100 
R 

3110 


DATA 
DATA 
DATA 


DATA 


UPSET , UPSET, UPSET , RENVERSER 
WAKE,WOKE , WOKEN, EVEILLER 

WEAR, WORE , WORN, PORTER 

WEAVE, WOVE , WOVEN, TISSER 
WEEP,WEPT,WEFT, PLEURER 

WIN, WON, WON, GAGNER 

WIND, WOUND , WOUND , ENROULER 
WITHDRAW, WITHDREW, WI THDRAWN, SE 


WRING, WRUNG, WRUNG, TORDRE 
WRITE, WROTE, WRITTEN, ECRIRE 
BEHOLD , BEHELD , BEHELD, AFERCEVOI 


BROADCAST, BROADCAST, BROADCAST, 


RADIODIFFUSER 
S120 DATA FORECAST,FORECAST, FORECAST, FRE 


VOIR 
3130 
3140 
R 

3150 


DATA 
DATA 


DATA 


UNDO, UNDID, UNDONE , DEFAIRE 
THRIVE, THROVE, THRIVEN, PROSPFERE 


WITHSTAND,WITHSTOOD,WITHSTOOD, 
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RESISTER 


3160 END 

3180 FOR t=1 TO 1000:NEXT:MODE 2: BORDER 
25 

3190 LOCATE 50,10:PRINT "AMSTRADUCTION" 


3200 INK O,2:INK 1,24: WINDOW 30,10,5,20 
: FAFER 1:PEN O:CLS 
5210 LOCATE 2,2:PRINT"# RESULTATS #": 
LOCATE 2, 12 PRINT "3626366 DFE DEF JDE DEEE 
#"": LOCATE 2,32: PRINT "3362626236 
4-6 
3220 LOCATE 5S,6:FRINT "CHER(E) ELEVE, " 
3230 LOCATE 2,7:FRINT "VOTRE NOTE EST DE 
"“5:S:"/10,AU NIVEAU “3;F#$ 
3240 LOCATE 2,11:FRINT "VOULEZ-VOUS: " 
3250 LOCATE 1,12:FRINT "—-1- ARRETER":LOC 
ATE 1,13:FRINT "—-2- CONTINUER LE JEU":LO 
CATE 1,14:FRINT "—-35- MENU" 
3260 AS$S=INÉEYS 
5270 IF AS="1" THEN CALL © 
3280 IF A$="2" THEN CLEAR:FOR A=0 TO 15: 
LOCATE 1,14:FRINT CHRS(11):NEXT:G0OTO 250 
3290 IF A$="3" THEN CLEAR:FOR A=O TO 15: 
LOCATE 1,1:FRINT CHR$#(11):NEXT:GOTO 276 
2:00 GOTO 5260 
3310 REM 
3320 CLS:MODE 1:INK O,3:INK 1,24:INF 2,2 
O: INK 5,18: FAFER O:FEN 1:BORDER 15 
3330 LOCATE 7,1:PRINT"DICO DES VEREES IR 
REGULIERS" :LOCATE 7,2: PRINT "============ 
3540 LOCATE 1,6:FEN Z:FRINT "RECHERCHE F 
AR: ":LOCATE 8,8:FEN Z:FRINT "—-1-— INFINIT 
IF":LOCATE 8,10:FEN 1:FRINT "-2- FRETERI 
T':LOCATE 8,12:PFEN Z:PFRINT "—-3- FARTICIF 
E":LOCATE 8,14:FEN Z:PFRINT "—-4- TRADUCTI 
ON'":LOCATE 8,16:FEN 1:PRINT "“-S- LISTE D 
ES VEREES" 


3250 LOCATE 10,24:FRINT “VOTRE CHOIX:" 
35360 FEN 1 

3370 Q$=INKEYS 

3780 IF Q$="1" THEN FRINT CHR$(7):GOTO = 
450 

3390 IF Q$="2" THEN FRINT CHR$#(7):GO0OTO = 
900 

3400 IF Q$="S3" THEN FRINT CHK$(7):GOTO 5 
9290 

3410 IF Q$="4" THEN FRINT CHRK$(7) :GOTO 3 
600 

3420 IF Q$="S" THEN PRINT CHR$(7):GOTO = 
710 

3430 GOTO 3370 

3440 END 

3450 RESTORE 1490:LOCATE 10,24:INFUT "IN 


FINITIF 2"; N$:N$S=UPPERS (NS) : 
164: READ 4$,B$,C$,D$:1F N$=A$ THEN 

O ELSE 3470 

3460 GOSUB 3750:60T0 3490 

3470 NEXT 

3480 GOSUB 3700 

3490 GOTO 3650 

3500 RESTORE 1490:LOCATE 10,24:INPUT "FR 

ETERIT 2"; N$:NS=UPPERS (NS): FOR N=1 TO 


FOR N=1 TO 
346 


28 





164: READ ÀA$,B$,C$,D$:1IF N$=EB$ THEN 33510 
ELSE 23520 

3510 GOSUB 3750:G0T0 3540 

3520 NEXT 

3530 GOSUB 3700 

3540 GOTO 3650 

33550 RESTORE 1490:LOCATE 10,24: INFUT "FA 
RTICIPE : "3; NS: NS=UPPERS (NS): FOR N=1 TO 1 
&4:READ A$,B$,C$,D$:1F NH=C$ THEN 5560 E 
LSE 3570 

3560 GOSUB 3750:G0T0 535970 

3570 NEXT 

2560 GOSUE 3700 

3590 GOTO 3650 

3600 RESTORE 1490:LOCATE 10,24: INFUT "TR 
ADUCTION: "3; NH: NH=UPFERS (NS) : FOR N=1 TO 1 
64:READ A$,B$,C$,D$:1F N$=D$ THEN 3610 E 
LSE 5620 

3610 GOSUB 23750:GO0OT0 3640 
3620 NEXT 

3620 GOSUB 3700 

3640 GOTO 3450 

3650 FEN 3:LOCATE 5,20:FRINT 
E LES RECHERCHES (O/N) 7" 
3660 Q$=INKEYS 
3670 IF Q$="0" 
00: GOTO 3320 
3680 IF Q$="N" 
3690 G0OTO 38650 
3700 LOCATE 21,24:PEN 2:PRINT "NON REPFER 
TORIE":FOR K=1 TO 1000:NEXT:RETURN 

3710 RESTORE 1490 

3720 RESTORE 1490:CLS:FOR N=1i TO 164:REA 
D A$,B%,C$,D$:CLS:PEN 1: LOCATE 1,6: FRINT 


"ON CONTINU 


OR Q$='o" THEN RESTORE 15 


OR Q$="n" THEN 270 


"INFINITIF : "SAS: PRINT:FEN 2:FRINT "F 
RETERIT : "ss BH: PEN 1:FRINT:PEN 3: FRINT 

“FARTICIFE 2"; CH: FRINT:PFEN 1:PRINT MT 
RADUCTION :";D$ 


3750 LOCATE 1,1:FEN 2:FRINT "Foint du cl 
avier numerique pour MENU:":1F INKEY(7)< 
>—-1 THEN GOTO 3320 ELSE FOR K=1i TO SOO:N 
EXT 


3740 NEXT:GOTO 35:20 
3750 CLS:FEN 1:LOCATE 1,6:PRINT "INFINIT 
1F 2: "SAS: FRINT:FEN 2:FRINT "FRETERIT 
: "5; BS:PFEN 1:PRINT:PEN 3:PRINT "PARTICI 
FE :"s CH: FRINT:FEN 1:FRINT "TRADUCTION 
: "5: D$: RETURN 
3760 REM=======presentation des pages=== 


353770 TM$S(x)="A":LOCATE 1,1:PAPER 1:FEN 0 
:FRINT "Question"; A:LOCATE 15,1:PRINT "N 
iveau ";p$:FOR i=1i TO x:READ ÀA$,B$,C$,D% 
:NEXT I:READ A$,B$,C$,D#$:PAPER O:PEN 1:0Q 
=Q+2: PAPER 1:PEN O:LOCATE 3,3:FRINT "INF 
INITIF":LOCATE 23,3:PRINT "PRETERIT" 
3780 LOCATE 42,23:PRINT "PARTICIPE FASSE" 
:LOCATE 63,3:PRINT "TRADUCTION":LOCATE 7 
7,3:FRINT "NOTE":ORIGIN 140,0:DRAUR 0,37 
S:ORIGIN 300,0:DRAWR 0,375:0RIGIN 460,0: 
DRAWR 0,375:0RIGIN 600,0:DRAWR 0,275:0RI 
GIN 0,350:DRAUWR 646,0 

5790 RETURN 

3800 RETURN@ 


UTILITAIRE 





LE CLASSEMENT 


INSTANTANE 
PAR SUBSTITUTION 


D. VASILJEVIC 


ous avez certainement étudié toutes les méthodes de tri, et 
vous voilà devant votre clavier patientant que les intermina- 
bles boucles imbriquées classent quelques malheureux 


tableaux ou fiches. 


L'auteur de ces lignes vous invite à oublier tout cela car, à moins 
d’avoir à classer des nombres astronomiques à la neuvième déci- 
male près, en pratique vous n’en avez nullement besoin. 


Que trie-t-on dans la vie courante ? La 
plupart du temps, on trie des nombres 
entiers représentant une quantité ou une 
propriété quelconque. 

Pourtant ces nombres étant naturels, ils 
occupent une place naturelle dans leur 
ensemble. 

C'est l’idée de base : il suffit de rempla- 
cer le doute que comporte chaque tri par 
la certitude du classement naturel, en 
substituant la référence à la valeur. 
Tapez les quelques lignes du listing n° 1 
et lancez le programme. 

Les nombres entiers aléatoires, de O à 
100 sont imprimés dans l'ordre de leur 
apparition et classés instantanément 


34, rue de Turin 
75008 PARIS 


dans le tableau A à l'indice égal à leur 
valeur (ligne 10). C'est tout, le tri est 
terminé ! 

Il suffit maintenant de les imprimer (ou 
de les empiler dans le même tableau, la 
libération des places étant plus rapide 
que l'occupation de fait des trous). 

En prenant l'indice de boucle croissant, 
l'ordre sera croissant et inversement. 
Cette fois c'est la valeur qui est égale à 
l'indice et le contenu du tableau, contrai- 
rement à tous les autres types de tri, ne 
contient pas la valeur, mais le nombre de 
valeur identique, ou le zéro en l'absence 
d'une valeur. 

Ainsi, dans l'exemple n° 1, le zéro appa- 


A RUE LEE ET 


Métros : Rome, Liège, 
St-Lazare, Place Clichy. 


TH 172 


Coffret de rangement 


40 disquettes 
à charnières 


POUR AMSTRAD” 


Enfin arrivés 
_ d'Allemagne 
- sur le marc 
en langue f 


CPC-MousePack 


hé français 


raît deux fois, le un quatre fois, alors que 
4, 5 et 7 n'existent pas, etc. 

En pratique il ne suffit pas de classer les 
valeurs, il faut savoir, aussi à quoi elles 
correpondent. 

Un marchand de chaussures, par exem- 
ple, ayant une centaine de modèles, veut 
savoir combien de paires il lui reste de 
chaque modèle et ceci dans l'ordre crois- 
sant afin de voir quels sont les modèles 
qui arrivent à épuisement. 

Modifier le programme selon le listing 
n° 2. 

Cette fois les références (numéros des 
modèles) seront classées en même 
temps que les valeurs et à l'indice = 
valeur. 

A l'impression, les valeurs sont accom- 
pagnées de leur référence (exemple 
n° 2). 

Pour les nombres entiers, il suffit de con- 
naître la plus grande valeur possible, afin 
de dimensionner le tableau en consé- 
quence, mais on peut, aussi, se passer 
de tableaux (listing n° 3). Toutefois en 
basic cette méthode est moins rapide 
que celle du listing n° 1 : pour 4000 
nombres, temps d'impression inclus, 
2 minutes 34 secondes pour la méthode 
de tableau, contre 3 minutes 28 secon- 
des pour ‘‘POKE"'. 

On peut classer de même manière et 
aussi rapidement les nombres décimaux. 
Il faut fixer la précision nécessaire (dans 
la vie courante deux décimales derrière 
la virgule). Utilisez le listing n° 4 (exem- 


Tnpersal S0FGuware Systens Germany 


Gardes 6 


Rochus-Center 
D-5300 Bonn 1 
West-Germany 


contient — une souris de précision 


— un adaptateur 


— une documentation détaillée 


— une disquette 3 


Les programmes livrés ensemble avec la 
souris vous permettent de l'utiliser pour 

vos propres programmes ainsi que pour 
le système CP/M ou pour une parfaite 


réalisation de graphiques. 


Le CPC-MousePack est le système 
souris le plus vendu en Allemagne. 


TH 175° 
Coffret de rangement 
10 disquettes 


Compilateur de BASIC “Typhon’” 


Selon l'opinion unanime des magazines allemands spécialisés en informatique, le 


Typhon” est un des programmes les plus importants pour le CPC. 
— le programme objet est jusqu'à 100 fois plus rapide que le programme BASIC 


— le compilateur peut comprendre plus de 30 instructions supplémentaires 


pour le CPC en Allemagne 


EN PROFITANT DE NOS PROMOTIONS 


© 1TH175 + 10 DISQUETTES 3” 299 F 
© 1 TH172 + 20 DISQUETTES 3" 630 F 
DISQUETTE SEULE gd (minimum 10 pièces) 28 F 


*marque déposée, photo non contractuelle 


FORFAIT DE PORT 40 F (jusqu'à 5 Kg, au-delà nous consulter). 


— Layout-CAD 
— PCW-Mouse 


Le “Typhon” est le leader des compilateurs de BASIC 


cassette: 290 ff 
disquette: 340 ff 


Autres produits d’Imperial SOFTware Systems 


— programmes utilitaires pour disquettes 
— MACRO-Assembleur 


Pour des informations plus détaillées et des commandes s'adresser aux revendeurs 


PRIX TTC 


de logiciel en France ou directement à: 


Togerial S0FGuare Sussteus Gardes france 


54 Avenue de la Paix 


F-57520 Rouhling Tel. 87092414 








ple n° 3). 

Pour les nombres négatifs, il faut diviser 
le tableau en deux parties égales, le zéro 
étant au milieu {listing n° 5 et exemple 
n° 4). 

On peut conclure que ce type de classe- 
ment n'est limité que par la taille de la 
mémoire, mais ceci est valable pour tous 
les programmes opérant sur tableaux. 
Les personnes possédant un lecteur de 
disquettes peuvent concevoir des 
fichiers ‘DATA indicés et augmenter 
encore les possibilités. 

Pour les autres, moins favorisés, voici 
une manière d'augmenter la capacité : le 
classement synoptique par substitution 
des coordonnées {listing n° 6). 

Le programme du listing n° 7 fait le clas- 
sement de 120 320 valeurs comprises 
entre O et 120319 (sans références). 





: NEXT 
20 FRINT:FRINT 
30 REM : 


40 FOR i=Q TO 100 : 





Les nombres sont classes. 


Durée : 1 heure, 29 minutes environ. 
Mais soyons réalistes, ceci n’est qu’une 
démonstration. 

Le dernier listing (n° 8) est destiné aux 
heureux possesseurs du CPC 6128 ou 
d'une extension de mémoire. Il exploite 
les 64K octets de mémoire supplémen- 
taire, grâce à l'utilitaire ‘’'BANKMAN”'. 
Ainsi seul l'index (tableau A) et le pro- 
gramme lui-même occupent la mémoire 
programmable. Ceci permet d'incorporer 
ces quelques lignes à un programme 
d'application particulière, selon chaque 
usager. Les valeurs sont codées par 
enregistrement. Chaque enregistrement 
comporte la totalité des éléments possi- 
bles codés sur 1 bit. A la lecture des 
résultats seuls sont lus les bits mis à 1 
et ceci uniquement pour les octets trans- 
formés par ‘‘bin$”’ dont au moins un bit 


sé 
Impression : 


IF a(i)=Q THEN SOTO 6Q@ 


50 FOR j=1 TO a(i):FRINT i3:NEXT j 
6@ NEXT i:FRINT:END@ 


2 DIM n#(100,100):FRINT 


15 n£a,a(a))=STRE(Ii) :NEXT 
20 FRINT:FRINT 
253 FRINT'NOMBRE 
TO REM : Les 
40 FOR i=0 TO 100 : 





6@ NEXT i:FRINT:END@ 


Listing . FA hs 


"TYPE 
18 DIM a (100) :RANDOMIZE TIME:FOR i=@ TO 100:a=INT(RND #100):FRINT I,A:a(a)=a(a)t 


est mis à 1. L'accès à chaque enregjis- 
trement est direct aussi bien à l'écriture 
qu'à la lecture. Dans ce dernier cas seuls 
sont lus les enregistrements non “nuls” 
grâce à l'index (tableau A). 

Pour tous ces petits programmes, 
compte-tenu de la lenteur d'impression 
on se rend difficilement compte de la 
vitesse réelle de classement. Si l'impres- 
sion ne vous est pas utile au moment du 
tri, supprimez-là. 

Ilest bien évident que tous ces program- 
mes traduits en langage machine gagne- 
ront encore en rapidité. 

En réalité, il est plus pratique d'adapter 
un petit programme en fonction du cas 
traité, ainsi les méthodes les plus simples 
seront les plus rapides. Et n'oubliez pas 
que le même principe peut être appliqué 
aux chaînes de caractères. 


Listing - 


10 DIM a(100):RANDOMIZE TIME:FOR i=9 TO 1@0:a=INT(RND #10) :FPRINT asta(a)=a(a)+i 





NOMBRE": FRINT 


TYFE': PRINT 
nombres sont classes. 
IF a(i)=Q THEN 
30 FOR j=1 TO a(i):FRINT i,n£(i,j):NEXT j 


Impression : 
GOTO 460 























2 CLS:FRINT "FATIENTEZ": MEMORY ZI1FFF:FOR i=227000 TO 27000+7+*4000:FOkHE 1 ,@:NEXT 
10 RANDOMIZE TIME:FOR i=Q TO 4000 :a=INT(RND *4000):FR3INT a: 

15 b=FEEE (22000+2%a) : c=FEEE (&2000+7ka+1)+1 
16 IF c=256 THEN bB=FEEFR (22000+24%a) +1: c=0:FOSE 
17 FOFE (&2000+2#a+1) ,c:NEXT 

20 FRINT:PRINT 

20 REM : Les nombres sont classes. Imoression : 

40 FOR i=0Q TO 4000:b=FEEF (2 2000+2?+%i):c=FEErR(&2000+?*i+1):IF b=0 AND c=0 THEN 6Q 
a a=b*x256+c 

30 FOK j=1 TO a:PFRINT i3:NEXT j 

NEXT i:FRINT:END@ 


(22000+7+#a) ,b 




















É— 
10 DIM a(1000):RANDOMIZE TIME:FOR 
—1) 

15 a(a)=a(a)+1:NEXT 
20 FRINT:FRINT 

50 REM : Les nombres 
40 FOR i=Q TO 999: 
50 FOR 





| 60 NEXT i:FRINT:END@ 


sont classes. 
IF ati)=Q THEN GOTO 60 
j=i TO ai): FRINT i/100::NEXT J 


Listing EL 


i=0 TO 99:a=(RND*10):FRINT a; :a=INT 


(—-ax100) *\ 





Impression 











— 


2 S=i 
10 DIM a(1000) : RANDOMI 
(-1):S=-S 


Listing No 


L 


ZE TIME:FOR i=Q TO 49:a=(RND#5) *G:FRINT a;:a=INT (-ax1@0) *x 


15 
20 
30 
40 
SO 
60 





a (a+500) =a (a+500) +1: NEXT 

FRINT:FRINT 

REM Les nombres sont classes. Impression 
FOR i=0 TO 999: IF a(i)=@ THEN GOTO 60 

FOR j=i TO a(i):FRINT (i-500)/100::NEXT j 
NEXT i:FRINT:END@ 














D — 


MODE Z:FAFER #O,1:FEN #0,G:WINDOW 1,6,4,22:CLS #0 

FAFER #1,0:FEN dede W INDOW #1,7,74, 1:22:CLS #1 

FAFERKHT,1:FEN #2,0:WINDOW #2,1,80,1,2:CLS #2: FRINT #2, "eee eee DE DE DE DE ED DE DE DE DE DE DE DE AE JE 
HOMOHHORE DH HIDE DE DE HD ÉD HE DE HE DEA DE HÉDEDEDÉ DEEE DÉDE DE DE DE ED DE DE DEEE DE DEEE DE DE DE DE DE DE 

FETITL 

S FRINT HR, "eee MERE ER DD DE DE DE DE DIE DEN DE DE DEEE DE DEEE DEEE DEEE DE DE DEEE DEEE DEEE DE ÉD DE DEEE DEEE DE DE DEEE EE 
HE RHONRERE DEEE DEEE 5 

6 FAFER #T,lL:FEN #7,0: WINDOW #7,75,80,4,22:CLS #3 

7 FAFER #4,1:FEN #4,0@:WINDOW #4,1,80,27,25:CLS #4 

8 FRINT #4, 1 BMD DEI DM DEN DE DEEDEDEDEDEDEDDEEOEEEEE IEE 
RON 2 PRINT #4 MEME DEEE HE HE ME DEEE DE DE DE DEEE DE DE DE EE EE EN 

HERONE ED JE DE DE HE DE DD HE DE DE DE DE DE DE DE DE DE DE DEEE HE EME ÉD DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE EEE: 

9 LOCATE #2,1,2:FRINT #2, '"NOMBRE'":LOCATE #4,1,2:FRINT #4, 
2FRINT #2,'"tri synoptique":LOCATE #2,76,2: PRINT #2, 
FLOT'" 

10 RANDOMIZE 


Listing N 


1,25 


INF O@,Q:INE 1,27 


ANR 


"MODELE": LOCATE #2,353,2 


TIME:FOR x=48 TO 592: V=INT(RND #167) +25: FLOT x,2%y,1:CLS:LOCATE 1,2 


9 (y+89)/8:FRINT y-25:LOCATE #4, (x+8)/8,2 :FRINT #4,x 

—A8:NEXT 

20 LOCATE #4,9,2: FRINT:PRINT #4, Vous avez classe 544 modeles" 
22 FOR i=1 TO 1GG0G:NEXT:LOCATE #2,223,2:FRINT #2, IMPRESSION "sLOCATE #2,76,2: 


FRINT #2,"TEST" 

20 CLS:LOCATE #4,7,2:FRINT #4, 

2: CLS:LOCATE 1,25-(y+16) /16: PRINT 
(X,Y)2::1F ai THEN 60 


KA 


4Q FOR y=49 TO 2:51 STEF 
: FOR x=468 TO S591:a=TEST 
90 FRINT #4,x-48; 

6Q NEXT X: FOR i=i TO 1QGG:NEXT i:LOCATE #4,7,Z2:FRINT #4, 


Cy—49) /2:LOCATE #4,7,2 





NEXT Y:END@ 
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Listing HA 


1 INF Q,0:INFH 523 
2,MODE 2:FAFER #0,1:FEN #0,0:WINDOW 1,80,25,25:CLS 

5 FAFER #1,0:FEN #1,1: WINDOW #1,1,80,1,22:CLS #1 

8 PRINT EEE HOME HOHEEHEEMEOHOHE DE HE DE DE HE DE DE HE DE DE DE DE DE DE DE DE HE HE DE DE DE DE HE DE DE DE HÉ DE DE DE DE DE HE DEEE DE DE DE DEEE DE DE DE DEEE HE DEEE DE DE JE DE 
RH EE 5 PRINT EE EH CHE DEEE DEEE DEEE DE DEEE DE DE DEEE DEEE DE DE HE EEE 

RIRE DH DE HE DE HE DE IDE IDE DE DE DEEE DE HD DE HD DE DEEE DE DE DE ED DE DEEE DE EDEN 

9 LOCATE 1,2:FRINT "NOMBRE":LOCATE 76,2:FRINT "PFLOT" 

10 RANDOMIZE TIME:FOR i=Q TO 120319:a=INT(RND #120:20):LOCATE 57,2:FRINT à 135 y= 
INT (a/640) :1=640%x(a/640-y):IF x-INT(“) 0.999 THEN x= 

x+1 

15 eo X—INT(X):0.999' THEN x=x+1 

16 FLOT x,2#(25+y) ,1:NEXT i 

20 LOCATE 29,2:FRINT "Vous avez ten 120720 nombres" 

22 FOR i=i TO 10@0:NEXT:LOCATE 29,2:FRINT " IMPRESSION ls LOCA 
TE 76,2:FRINT "TEST" 

20 FOR i=i TO 1Q0B:NEXT:LOCATE 2S,2:FRINT " ! 

40 FOR y=49 TO 375 STEF 2:FOR x=0Q TO 679:a=TEST (xX,V):IF ai THEN 60 

dQ LOCATE 29 ,2:PFRINT 640%(Y-25) /2+X 

6Q NEXT X,y:END@ 
(Rs | : D 














D Listtoe 8 


10 MODE 1:WINDOW #0,1,80,4,25:INF OQ,G:INE 1,27: FAFER #H#O,0:PEN #0,1:CLS: INPUT “no 
mbre d'articles a classer? ",m 

20 INFUT'"borne inferieure ?7",vmin:INFUT'"borne superieure ?7",vmax:1=1+vmax-vmin 
20 INFUT "nombre de chiffres deriere virgule 7",p:CLS:LOCATE 4,10:FRINT" purge 
de 1a banque -— patienter" 

40 1d=(1+(vmini@))#10"p+z:c=5274288/l1d:IF cim THEN CLS:FRINT "capacite depassee, 

recommencez":FRINT:GOTO 10 

90 n=-INT(-m/8) : :RANFOFEN,n:DIM a(ld):a#="":FOR I=1i TO n:at=a#+CHRi# (QD) :NEXT isr2 
=Q:b#t=af 

60 FOR i= ©? TO Id: 'RANEWRITE,@r%,aft,i:NEXT:CLS:RANDOMIZE TIME 

7@ WINDOW #1,1,80,1,3:FAFER #1, 1:FEN #1,0:CLS #1: FRINT #1:PRINT #1," article 
reel ajuste indice‘; 

80 FOR t=1 TO m:x=RND#(1-1)+vmin:1F x+2%1 THEN 80 ELSE V=INT(x#10"p)/10"p:i=INT( 
Cv-vmin)#10"p) +2 

90 FRINT USING "HHHHH#'; ts: PRINT USING "Hé, HFHAHIHH HE 505 PRINT USING "+HH#H##.# 

VHS VS PRINT "OMS USING "HHHHH' ei 

100 a(i)=a(i)+1:: BANEREAD,G@r%,b#,i 

110 o=INT(t/8)+1:b=t MOD 8:a=ASC(MID#(b#,0o, 1)):GOSUE 210 

120 af=""3IF ox1 THEN af=LEFT#(b#,o-1) 

170 af=af+CHRE (a) +MIDE (b#,0+1,n-0) : !BANÉWRITE Gr, af, i:NEXT / . 

140 CLS:CLS #1:LOCATE 10,10:FRINT'"le tri est termine":LOCATE 10,1Z:FRINT'"'une tou 
che s. v. p." 

1950 af=INEEY#: IF af="" THEN 150 ELSE CLS:CLS #1:PRINT #1:FRINT #1," valeur: 

articles": 

168 FOR v=? TO ld-1@"p-1:1F a(v)=0 THEN 200 ELSE FRINT USING'HHH#H. #HHH#H"s: (V-2) /10 
Cp+VMinss PRINT "085 "5: bE=SFACES (n) : : HANÉREAD,Gr%,b#, 

vic=0Q 

170 FOR o=1 TO n:a=ASC(MID#(b#f,0,1)):ct="":c#=RINt(a,8):FOR b=Q TO 7:1F MID+(c#, 
8-b,1)="Q" THEN 180 ELSE t=ox8+bh-B:FRINT ti:c=c+1 

180 IF c=a(v) THEN b=7:0o=n 

19Q NEXT b,o:FRINT:FRINT 

200 NEXT V:FRINT:FRINT'Les valeurs sans article ne sont pas imprimees !":END 
210 CF=<BRINE(Aa,G):1IF MIDF(c#,9-b,1)="1"THEN RETURN ELSE a=a+2"b:RETURN@ 
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E X E M PL E S : 
ill — 


40 57 52 48 55 99 87 35 12 18 34 32 12 76 12 1 38 78 bb 59 31 2 93 25 93 79 29 9 78 57 97 95 27 
35 45 9b 97 11 68 9 45 96 59 43 64 23 94 46 49 83 56 3 80 65 52 81 53 59 57 74 6b 9 78 19 18 Il 
86 1 25 98 95 22 8 40 27 95 8 66 8 20 97 77 3 6 65 1 41 12 64 74 65 97 50 97 86 21 96 5b 60 1 64 








DG1L111Z23 36899 I 12 12 12 12 18 18 19 20 21 22 23 23 25 27 27 2 Si 32 4 35 5 
38 39 40 40 41 43 45 45 46 48 49 SQ 52 52 53 55 56 5 57 57 57 59 59 64 65 65 bb bb bb 74 74 7b 717 
78 78 78 79 60 60 81 83 85 64 64 Gb Bo 67 88 95 95 %4 95 95 95 %6 6 9% Jo 97 97 97 97 97 9% 9 


Exeaple Hi 














© 





| 
| 
| 
| 











Exenple no 





1.26763294 4,70221291 3.06980857 2.89763116 2.726896b8 5.5063797 6.46958745 5.08675754 2.59948671 0.567496058 8.2623209 
5.32444588 7.28805623 35.27087455 6.71147059 1.25467954 0.407893565 0.63406802 9.63864168 7.41448541 9,.09724185 2.8434602 
9.33630273 3.78709551 9.39597469 2.57769098 4.73209228 1.10101926 6.35800093 1.354783585 5.30361375 6.444bb752 b.52866157 
5.97109977 5.63440474 9.92147342 6.99819662 0.463822505 2.27611956 4.98009257 1.21961616 6.56546549 7.451bB4B5 7.1485339 
9.64178752 6.67915303 9.24450847 4,.77695754 9.77321698 2.71098881 7.11804135 5.1654987b 9.23090847 0.860142394 

5.12302228 2.45587954 6.61652319 2.09899587 5.7997607 0.269815724 5.08678368 3.51906907 7.8816BB91 3.128991 1.81041354 
5.81757184 0.45948559 1.5788854 0.814054133 5.45575971 5.03307779 9.14566919 8.080638 5.01904159 7.22001495 2.95861962 
9.54494867 0.981871265 9.88764043 2.19061775 4.52b84795 6b.38704024 6.75277312 6.45928984 5.9418475 6.53934023 6.95885126 
1.99678879 7.81186607 4,.57349633 4,19489991 8.45404836 3.2657636b 3.47244684 0.995411602 6.50209049 7.13B0b587 

4,50194407 8.3925717 9,1059816 


0.27 0.41 0.46 0.47 0.57 U.64 0.82 0.87 0.99 1 1.11 1.22 1.26 1.27 1.35 1.58 1.82 2 2.1 2.2 2.28 2.46 2.58 
2.b 2,72 2.173 2,B5 2.9 2.94 3.07 5.13 3.17 3.27 3.28 3.48 3.52 3.79 4.2 4,51 4.53 4.58 4.71 4.74 4,78 4.99 
5.02 5.04 5.09 5.09 5.15 5.31 5.33 5.46 5.51 5.64 5.8 5.82 9.95 5.98 6.36 6.39 6.45 6.46 6.47 6.51 6.53 6.54 
6.57 6.68 6.72 b.9b 7.12 7.14 7.15 7,23 7.29 7.42 7.46 7.82 7.89 8.09 6.27 8.4 8.46 8.b2 8.74 9 9,1 9.11 
9.15 9.24 9,25 9.34 9,4 9,55 9,64 9.65 9,78 9,89 9.93 


Exemple no 4 


2.1060345 -4.59119444 1.1894763 -3.04191184 2.34910174 -1.16526728 2.69691425 -1.74012055 0@.168811977 -1.8524493 1.900966B4 
-0.310540752 2.089603549 -3.30801275 1.27923583 -3.51693719 3.81941433 -1.5275352 2.59492556 -0.6535656222 3.75115223 
-1.47267777 1.06966399 -1.3264191 2.01775482 -3.36505408 0.80601854 -1.27954807 4.57481011 -1.27296129 2.70024658 -1.77721438 

0.29288427 -1.55933233 0.827182091 -2.21965023 2.45160962 -0.282858919 2.5395724 -1.92291765 5.94846E-02 -1.72521581 

2.30131287 -2.37439446 4.16592216 -2.45423488 1.46810279 -3.5596313b 4.9407509b -5. 744205 




















4,59 -3.74 -3,55 -3.51 -3.36 -3.3 -3.04 -2.45 -2.37 -2.21 -1.92 -1.85 -1.77 -1.74 -1.72 -1,55 -1.52 -1.47 -1,52 -1,27 -1.27 -1.16 


-0.65 -0.31 -0.28 0.04 0.17 0.3 0.81 0.83 1.07 1.19 1.28 1.47 1.91 2.02 2.09 2.11 2.31 2.35 2.46 2.54 2.b 2.7 
2.71 3.76 3.82 4,17 4.58 4,95 
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DUCHET COMPUTERS & SIREN SOFTWARE 


51 Saint-George Road - CHEPSTOW - NP 65 LA - ANGLETERRE - Tél. + 44 291 257 80 


EN EXCLUSIVITÉ : DES PROGICIELS SUPER CHOUETTES EN FRANÇAIS POUR AMSTRAD - SCHNEIDER 464/664/6128 


Formatez toutes vos disquettes 3" ordinaires en 416 Koctets 


TU RBO 41 6 (175 FF port compris) 


Le super utilitaire acclamé par la presse britannique est désormais disponible en Français 
Compatible 464, 664, 6128 
FORMATEZ les disquettes standard AMSTRAD des lecteurs ordinaires standard AMSTRAD/SCHNEIDER 


AVEC 208 Koctets par face : 


Pour 175,00 FF (disquette 3”) vous recevez non seulement le SUPER FORMATEUR TURBO 416, mais aussi toute une gamme d'utilitaires inédits en France. 
Les 2 faces de la disquette regorgent de programmes (en Français) jamais vus ! Sélection trèssimple par menu ! Quelques-unes des innombrables options : 


1. TURBO 416 (super formateur) 2. Archivage Fichier Disc/K7 à 3000 bauds 
3. Cherche de données / Fichier maximum 25 caractères ! 4. Re-transtert K//Disc de l'option 2 
5. Cherche de données / disc - maximum 25 caractères ! 6. Transfert intégral fichiers disc/disc 
7. Générateur de menus 8. Copieur de disquettes (très, très costaud) 
9. Accélère les lecteurs de 20 % 10. Déplombeur 
11. Éditeur de CAT 12. Moniteur de disquette 
13. Éditeur de disquette 14. Listage ASCII écran/imprimante 
15. Plan d'occupation des fichiers 16. Lecteur en-tête K7 et disc 


et bien d'autres. 


TURBO 416, le SUPER COMPENDIUM de super utilitaires en FRANÇAIS ne vaut que 175 FF port compris 





DISCOVERY PLUS 464/664/6128 


Un prodige de programmation EN FRANÇAIS. Pour ceux qui ne peuvent pas s'offrir le luxe d’une interface de transfert, DISCOVERY PLUS est la solution ! 
Transfère PLUS de programmes protégés de K7 à disquette qu'aucun autre soft ! Contient 4 programmes pour transférer : 1. Les “Speedlock” - 2. Les 
“Sans en-tête" - 3. Les “Conventionnels” -4. Les autres... ! Simple à utiliser ! Pas besoin de désassembleur, etc... ! PRIX port compris : seulement 150 FF 
(disque uniquement). 





SUPER TAPE 4000 crc 464 uniquement 


Le meilleur utilitaire de sauvegarde K7/K7 sur le marché ! Sauvegarde automatique. 10 vitesses de sauvegarde au choix ! Entièrement en FRANÇAIS. 
Cassette : 90,00 FF* - Disque : 120,00 FF (port compris). 





CADEAU ! Commandez les 3 progiciels ci-dessus et nous vous offrons gratuitement en CADEAU le superbe progiciel PRO SPRITE (LA FABRIQUE DE 
LUTINS) valant normalement 125 FF ! Créez et animez des lutins que vous intégrerez à vos programmes personnels ! Un programme de démonstration 
est inclus pour vous assister. Documentation en Français. 


VENTE EXCLUSIVEMENT PAR CORRESPONDANCE - Envoyez vite votre commande (en Français) à : 
DUCHET Computers - 51, Saint-George Road - CHEPSTOWNP 6 SLA - ANGLETERRE - Téléphone : + 44 - 291 257 80 





ENVOI IMMÉDIAT LE JOUR MÊME PAR AVION c'ans le monde entier 
(hors Europe ajouter 10 FF par titre S.V. P.) 


RÈGLEMENT PAR : 
MANDAT POSTE INTERNATIONAL en francs. 
.EUROCHEQUE en livres sterling (vous faites la conversion). 
CHEQUE BANCAIRE en livres sterling compensable en Angleterre (votre banque fait la conversion). 


Rédiger les mandats, chèques , etc... à l'ordre de DUCHET Computers. 


Si vous êtes pressé, réservez votre commande EN PARLANT EN FRANÇAIS ! 
Téléphonez à Caroline, Jean-Pierre ou Didier au 44 291 257 80 de 8h à 19h. 





Ces progiciels en français sont Copyright DUCHET COMPUTERS & SIREN SOFTWARE. Ils sont disponibles en exclusivite chez Duchet Computers. 
Leur diffusion ou reproduction commerciale, même partielle, sous quelque titre ou forme que ce soit et par qui que ce soit est formellement 
interdite dans tout pays, Suisse comprise, . ; 








MIRAGE IMAGER version TURBO 
enfin le TRANSFERT et la SAUVEGARDE ULTRA-RAPIDES ! 





RECHARGEZ UN PROGRAMME DE 64 Ko EN 14 SECONDES ! 
APRES L'AVOIR TRANSFERE EN UNE VINGTAINE DE SECONDES 
avec la version TURBO du MIRAGE IMAGER 


LE PERIPHERIQUE QUI TRANSFERE et SAUVEGARDE 
100 % DES PROGRAMMES 


LE MIRAGE IMAGER TURBO 


CPC 464/664 : 
seulement450 FF 


Port compris 





CPC 6128 : 
seulement 500 FF 


Port et câble 6128 compris 


MANUEL COMPLET de 3000 mots entièrement en Français 


Le MIRAGE IMAGER version TURBO est disponible maintenant. 
Chez nous, la RUPTURE DE STOCK N'EXISTE PAS. 


Ses caractéristiques : 


SAUVEGARDE 64 Ko SUR DISQUETTE EN UNE VINGTAINE DE SECONDES 
RECHARGE UN PROGRAMME DE 64 Ko EN 14 SECONDES ! 
TRANSFERT K7 / DISQUETTE où DISQUETTE / CASSETTE et SAUVEGARDE K7 / K7 où 


DISQUETTE / DISQUETTE de tout programme protege ou non jusqu'a 128 Ko (64 Ko sur 464/664) 


SAUVEGARDE K7 EN 3 VITESSES (normale, rapide et TURBO) 

TOOLKIT incorpore qui affiche les adresses, INK, PEN et autres details des programmes 
et ecrans, permettant un bidouillage acharne et intensif 

Grâce au TOOLKIT, contemplez instantanement les resultats des bidouillages effectues ! 
MODE 64 K ou 128 K avec les CPC 6128 

Se branche en 2 secondes ! 

Extréèmement simple a utiliser : gere par menus et l'on presse UN SEUL BOUTON pour 


transterer/sauvegarder/recharger 

Ne prend aucune place en RAM, n'est donc pas detectable par l'ordinateur 
Tres amical, detecte les erreurs de l'operateur 

8K RAM et 8 K ROM incorpores 

Compresse afin d'utiliser un espace minimum sur disque où cassette 
Sauvegarde en yn seul bloc (pratique pour archivage) 

Compatible avec les ROMS et cartes d'extension et permet aussi de les invalider 
Pour usage personnel 

Comporte un bus d'extension pour raccorder d'autres peripheriques 

Stoppez un jeu à n'importe quel moment, sauvegardez et reprenez-le au même endroit 
TOUS les programmes transferes fonctionnent ! 





VENTE PAR CORRESPONDANCE - Envoyez votre commande (en Français) directement à : 
DUCHET Computers - 51, Saint-George Road - CHEPSTOW NP6 SLA - ANGLETERRE - Téléphone : + 44-291 257 80 





ENVOI IMMEDIAT LE JOUR MÊME PAR AVION dans le Monde entier (Hors Europe ajouter 25 FF S.V.P.) 


REGLEMENT PAR : 


MANDAT POSTE INTERNATIONAL : 
CPC464/664 : 450 FF 
CPC 6128 : 500 FF 


REDIGER LES MANDATS, etc. à L'ORDRE DE DUCHET Computers. 


EUROCHEQUE où CHEQUE BANCAIRE en livres sterling 
compensable en Angleterre 

CPC464/664 : 49,95 livres sterling 

CPC 6128 : 54,45 livres sterling. 


Si vous êtes pressé, réservez votre commande EN PARLANT EN FRANÇAIS ! 


Téléphonez à Caroline, Jean-Pierre ou Didier au 44 291 257 80. 





AMSLAINE. 


Lud BIENAIME 










(petits ou grands) avec la maman ou l'épouse si souvent délais- 
sée. En cet hiver rigoureux, CPC est fier de vous proposer le 
premier programme de TAO (Tricot assisté par ordinateur). 


V: un programme qui va enfin réconcilier les Amstradistes 


AMSLAINE est un utilitaire assez origi- 
nal qui permet, à partir d’un échantillon 
de tricot, de réaliser des dessins repré- 
sentant des ouvrages auxquels il suffit 
de donner une cotation réelle, le nombre 


certains cas et ceci est expliqué dans la 
partie AIDE. 

De nombreuses REMarques viennent 
agrémenter le programme mais il n'est 
pas nécessaire de les taper bien entendu. 


…… C'EST Cù 
. LES : 
RÉCLAHAT ONE 


correspondant de rangs et de mailles 
s'affichent automatiquement, et pour 
finir des commentaires assez sommaires 
(manque de place à l'écran oblige) indi- 
que au réalisateur la marche à suivre. 
Le logiciel se présente sous la forme de 
menus déroulants et l'option MEDIA 
fournit une aide à l'utilisateur. Une impri- 
mante est bienvenue mais pas néces- 
saire. Un lecteur de disquettes également 
mais la sauvegarde sur cassette est bien 
entendu possible. 

Le programme a été écrit sur CPC 6128. 
La compatibilité avec un CPC 464 est 
assurée, il suffit pour cela de supprimer 
le ON ERROR GOTO de la ligne 80 et le 
sous-programme qui s'en suit (lignes 
3460-3500). 

La sauvegarde d'un fichier se fait à par- 
tir du menu MEDIA sous un nom orga- 
nisé de la manière suivante : 

exemple : MT291286.PUL 

— MT représentent les initiales du nom 
et du prénom du destinataire du tricot ; 
— 291286 est la date du jour de la 
réalisation ; 

— PUL est l’abréviation du type de tri- 
cot réalisé qui sert d'extension dans le 
cas d'un lecteur de disquettes. Il est 
donc assez aisé de se repérer et de récu- 
pérer plus tard une réalisation afin de la 
modifier. 

Un ordre de travail est à respecter dans 











119 RESTORE 3520:nbh=10: DIM h$(nbh),v#(n 
bh,9),v(nbh):FOR x=1 TO nbh:READ h$(x)=:N 
EXT 

120 FOR x=i TO nbh:READ v{(x):IF v(x)30 T 
HEN FOR xx=1 TO v(x):READ vx, xx) = NEXT 

130 NEXT:RETURN 


10 2 me ue men ue ue eue es ee un eme ue ue un eue eue ee en me un em mue one eue ee ne ee eue es ee 
Ci M AMSLAINE xk# | Il 20 ‘ AMSLAINE 
| . 40 Frogramme de calcul de tricots 
-Honter 78 mailles, 
cn. ; 6 Apres k LA ran je DO ess seen 
mail, augmenter 8 mailles, 19 
60, 268 uenertation manches: 60 (c) BIENAIME Lud le 16-12-86 
THEIR we 2 ed DieS EC NS NN RNE VERS PRET 
Composition: ie _ jmil e fous les 80 DEFINT a,b,d-m,o-z:O0N ERROR GOTO 347C 
ine:30 % Ê i . L : 
fibres 70 ï Dane HALL 90 GOSUB 3420:GOSUB 150:GOSUB 110:GOSUB 
! dite Lo puis 3300: END 
à rangs 28 Pois 100 Initialise tableaux menus 
1 maille tous les 
3 rangs 18 fois 
7,0 88 NL au centre: 








36 
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140 
159 MODE 2:BORDER 13: 
MORY S9EFF 
160 WINDOW #2,6,7/74,11,21:WINDOW #3,5,75, 
10,22: WINDOW #4,58,80,7,2S5:WINDOW #5,17, 
97,7,25: WINDOW #6,5,36,10,15 
170 1$5=CHRS (24) : tr=0: man=0:enc=0: fer=v:e 
ch=0:#fin=0:#f1=0: #f11=0: f12=0 
180 tr$=STRINGS (9,232) :man$=STRINGS (12,3 
):encHh=STRINGS (29,32): ferb=STRINGS (9, ee 
190 DEF FNreal$=tr$+" “+man$+" “+enc$+" 
"“+fer$:" Type de tricot 
200 DEF FNrang=CINT (ran/10#haut):DEF FNm 
ail=CINT(mai/10#larg):" Nb rangs,mailles 
219 DEF FNfich$=LEFTS$ (nom$, 1) +LEFT$(pre$ 
51)+LEFTS$S(date$,2)+MID$(date$,4,2)+RIGHT 
$S(date$,2)+"."+LEFT#(tr$,3):" Nom fichie 
r sauvegarde 
220 DIM cv(7,9,2),ch(7,5,2) ,cotv(7,5,2), 
coth(7,5,2):" Positionstvaleurs cotation 
230 RETURN 
PAU ER ES re Menu deroulant 
250 LOCATE 1,1:FRINT STRINGS#(80,1:71):LOC 
ATE 1,2:FRINT CHR# (143) ; CHR$& (209) ; CHRS# (2 
11),:FOR i=1 TO nbh-2:FRINT h$(i) 3; CHR$ (2 
09) +CHRS (211): :NEXT:PRINT CHR$ (143) : LOCA 
TE 2,2:FRINT STRINGS#(80,140) 
269 ph=i:c=3:1$-CHR$ (24): LOCATE c,2:FRIN 
T 19: CHR$S (247) ;:h$ (ph) ; CHR$ (246) ; 1$: SOUND 
1,390, 20 
270 WHILE INKHEY(6)<>0 AND JOY(0)<>16 
280 IF (INKEY(1)<>-1 OR JOY(O)=8) AND ph 
<nbh-2 THEN LOCATE c,2:PRINT CHR$(211);h 
$ (ph) ; CHR (209) ;:c= =C+LEN Ch$ (ph) )+2 :ph=ph 
+1:LOCATE c,2:PRINT i$3;CHR$# (247) ;h$ (ph); 
CHR# (246); 1% 
290 IF CINKEY(8)<>-1 OK JOY(O0)=4) AND ph 
>1 THEN LOCATE c,2:PFRINT CHR$ (211) ;h$ (ph 
>; CHR$ (209); :c=c-LEN(h$(ph-1))-2:ph=ph-1 
:LOCATE c,2:PRINT i$;CHR$ (247) ;h$ (ph) ; CH 
R$(246);1%$ 
300 FOR t=1 TO 250:NEXT:WEND 
310 IF v(ph)=0 THEN pv=0: En =2:60SUB 410:R 
ETURN 
320 x=v(ph)+i:nbv=x-1:1li=(x)#16+4:1=0:F0 
R i=1 TO nbv:1=MAX(1,LEN(VS$(ph,1))):NEXT 
:1=MAX(1,LENCRhS (pPh))) =: LOCATE c-i,3:FRINT 
SPACES(1+2);:10=1:1=(1+2)#68+1 
330 SOUND 1,450,20:WINDOW #1,c— 
4,nbv+s5:CLS #i 
340 FOR y=1 TO 6: MOVE (c-2)#8-1,366-y:DR 
AUR 1,0:NEXT: DRAWR 0,-1i:DRAWR -1, 
KR O,11:MOVER 2,-11-2: DRAWR 1-1,0:DRAWR O 
s51i+6: MOVER 1,0: DRAUR O,-l1i-6: MOVER 1,0: 
DRAWR 0,1i+6 
350 FOR i=1i TO nbv:LOCATE #1,3,1:PRINT # 
1,V$(pPh,i);:NEXT:pv=1:GOSUB 449:SDOUND 1, 
500,20 
360 WHILE INKEY(6)<>0 AND JOY(O)<516 
370 IF CINKHEY(O)<>-1 OR JOY(O)=1) AND pv 
>1 THEN GOSUR 450:pv=pv-1:GOSUB 440 
3280 IF CINEEY(2)<>-1 OK JOY(O)=2) AND pv 
<nbv THEN GOSUR 450:pv=pv+1: GOSUER 440 
390 FOR t=1i TO 175:NEXT:WEND:GOSUB 41021 


SES es Initialise variables 
INK O,1:INK 1,25:ME 


7 ES 
3 c+lo+?, 


O:DRAK Ë 


F ech THEN GOSUB 12380:1IF mai<>0 THEN G0S 

UB 1470 

400 IF rea<>O THEN GOSUR 1700: RETURN ELS 

E RETURN 

419 LOCATE 1,2:FRINT CHR#(142) ; CHR$ (209) 

;: CHRS (211) ;:FOR i=1 TO nbh-2:PRINT h#$(i) 

5 CHRS (209) ; CHR$S (211); =: NEXT:FRINT CHR# (14 

3) ; CHR$ (1437) :LOCATE 2,2:PRINT STRINGS (80 
140) : SOUND 1,6090,7:SOUND 1,450, 7: SOUND 

1,350,7 

420 1F pv<>0 THEN CLS #1 

430 RETURN 

440 LOCATE #1,2,PV:FRINT #1,i%;CHR$ (247) 

sV$ (ph, PV) 3; SPACES (lo-LEN(v$ (ph, pv) ))35;CHR 

$ (246) ; 1$: RETURN 


450 LOCATE #1,2,PV:PRINT #1," ";v#(ph,pv 
) ; SPACE$ (1o- LEN CVS (ph, pVI))5" "5 : RETURN 
260 Fin 
470 ON pv GOSUR 430,480: RETURN 

480 fin=-1:RETURN 

490 = Aide 
500 LOCATE Z,2:PRINT i$:SFACES(13)"< CON 


TROL+X > ou joystick a droite: Retour au 
menu"; SPACES (123) :;:1% 
510 CLS#Z:WINDOW #2,6,74,11, 
O 
520 LOCATE #2,30,1:PRINT #2, 
E"51$;"##" 
530 LOCATE #2,1,3:PFRINT #2,"# <Fleches 
urseur> où <Joystick> pour se deplacer 
ans les menus.":FRINT #2,"# <ENTER> ou 
Bouton de tir> pour valider.":PRINT #2, 
*# D'abord etablir l'echantillon." 
540 PFRINT #2,"* Choisir ensuite: Tri 
cot'":FRINT #2, TAB(24) ;"Enmanchure":PRINT 
#2,TAB(24);"Encolure":PRINT #2,TAB(24); 
“Fermeture":LOCATE #2,14,11:PRINT #2,"pu 
is: Realiser"; TAB(62) 3; "<ENTER>" 
550 WHILE INFEY$S<>"": WEND:WHILE INKEY#=" 
“=: WEND: IF INKEY(63)=128 OR JOY(0)=8 THEN 
CLS #3: GOSUR 1650: RETURN ELSE FOR i=i T 
O 10:FRINT #H2:NEXT 
960 PRINT #2," Pour chaque realisat 
ion, vous indiquerez les dimensions aux 
en-droits indiques par le pave clignotan 
t.":PRINT #2," Le nombre de rangs et 
de mailles, en fonction de l'echantill 
on,s'inscrira aux endroits correspondant 
s.":PRINT #2 
270 PRINT #2:PRINT #2, 
realisation, choisir l'option —Media- 
pour: —soit sauvegarder (cassette 
ou disquette)":PRINT #2,'"-soit imprimer 
(DMP 2000 — EFSON ou Compatibles)":PRINT 
#2:PRINT #2,TAB(62) 3; "<ENTER>" 
980 WHILE INKEY$<>"":WEND:WHILE INKEY$=" 
“:WEND: IF INKEY(63)=128 OR JOY(O)=8 THEN 
CLS #3: GOSUB 1650:RETURN ELSE FOR i=1 T 
O 1O0:PRINT #2:NEXT 
990 PRINT #2, 11 est possible en cour 
s de realisation de modifier l'echantilil 
on,le type de tricot ou l'un de ses elem 
ents par les commandes <Ctri-X>ou joyst 
ick a droite qui rendront la main au men 


0.9 


21:GOSUB 173 


"x" i$; “AID 


AeQNn 


Apres chaque 





U. LL] 
600 PRINT #2:FRINT #2,"# ECHANTILLON:":P 
RINT #2," Donner la date (2 chiffres 
seulement pour les jours,mois,annee), le 
nom et le prenom." 
610 FRINT #2," Etablir ensuite la fic 
he. technique concernant la laine, puis 1 
es points employes pour le bord et le tr 
icot."=:PRINT #2," Indiquer le nombre 
de mailles et de rangs releves sur l'ech 
antil-lon." 
620 LOCATE #2,62,11:PRINT #2,"<ENTER>":W 
HILE INKEY$<>"":WEND: WHILE INKEY$="":WEN 
D:IF INKEY(63)=128 OR JOY(O)=8 THEN CLS 
#3: GOSUB 1650:RETURN ELSE FOR i=1 TO 10: 
PRINT #2:NEXT 
650 PRINT #2,"# REALISATION: ":PRINT #2," 
Si le tricot est un pull, un gil 
et, un debardeur ou une robe, la premiere 
realisation doit etre le dos." 
640 PRINT #2," Des commentaires 
cernant la realisation en cours ser 
ontaffiches apres avoir etabli toute 
1a cotation (diminutions,aug-mentatio 
ns... .)." 
659 FOR i=1 TO S:PRINT #2:NEXT:LOCATE #2 
562,11: PRINT #2,'"<ENTER>":WHILE INKEYS<}> 
"Us WEND: WHILE INKFEY#$="":WEND: IF INKEY(6Z 
)=128 OR JOY(0)=8 THEN CLS #3:GOSUB 1650 
: RETURN 
660 FOR i=1i TO 10: PRINT #2:NEXT:FRINT #2? 
5"* COTATION:":PRINT #2," Utiliser le 
s fleches haut(+) et bas(-) ou le joyst 
ick pour affi-cher la cotation (augmenta 
tion ou diminution de 0.5 cm)." 
670 PRINT #2," La touche <SHIFTS ou 1 
e bouton de tir enfonces simultanement a 
vec les fleches ou le joystick font augm 
enter ou diminuer de 10 cm.":FRINT #2," 
La touche <DEL> ou le joystick a gauc 
he positionne a la cotationprecedente." 
680 FOR i=1 TO 4:PRINT #2:NEXT:LOCATE #2 
562,11: PRINT #2,'"<ENTER>":WHILE INKHEY#$<> 
"ss WEND: WHILE INKEY$="":WEND:IF INKEY(63 
)=128 OR JOY(0)=8 THEN CLS #3:G6GOSUB 1450 
: RETURN 
690 FOR i=i TO 12:PRINT #2:NEXT:LOCATE # 
2,260,95:PRINT #2,"##"5:1i4: "BON COURAGE"; i% 
5"##":LOCATE #2,62,11: PRINT #2,"<ENTER>" 
700 WHILE INKEY$<>"":WEND: WHILE INKEY$=" 
“: WEND: CLS #3: G0SUB 1650:RETURN 
PAO! 7 RESTE SSSR ESS Saisie masquee 
7290 SOUND 1,400, 20: a=0: a$=-masque$ 
730 WHILE a<LEN(a$):LOCATE #w,x,y:PRINT 
H#w,1$;:a$; 1H: WHILE INKEY$S<>"":WEND:aa$="" 
:WHILE aa$="":aa$=INKEYS#: WEND 
740 IF aa$=CHR$ (13) THEN K=INSTR(a$, "_") 
—12IF kK>=0 THEN a$=LEFTS$(a$,k)+STRINGS (L 
EN(a$)-k,52):GOSUB 770:RETURN ELSE GOSUB 
770: RETURN 
750 IF INKEY(79)}=0 AND a$<>masque$ THEN 
MID$(a$,a,1)=MIDS (masque$, a, 1):a=a-i:ON 
aa GOSUB 800,780,820,840 ELSE a=a+i:ON a 
a GOSUE 790,780,810,830:MID$(a$,a, 1)=aa$ 


con 
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760 WEND:GOSUB 770:RETURN 
770 LOCATE #w,x,y:PRINT #w,a$;:RETURN 
780 RETURN 


790 IF a=3 OR a=6 THEN a=a+1: RETURN ELSE 


RETURN 
800 IF a=3 OR a=6 THEN a=a-1:RETURN ELSE 
RETURN | 
810 IF a=4 THEN a=a+1:RETURN ELSE RETURN 
820 IF a=4 THEN a=a-1:RETURN ELSE RETURN 
830 IF a=9 THEN a=a+il: RETURN ELSE RETURN 
840 IF a=9 THEN a=a-1:RETURN ELSE: RETURN 
850 Medias 
860 med=pv:1F med<>1 THEN ON rea GOSUB 1 


820,1950,2100,2160,2230,2300,2560:IF rea 
THEN GOSUB 2700: KRealisation,commentai 
res 
870 ON med GOSUB 500,900,950, 1070, 420: 
Aide, Imprime,Sauve,Charge 
880 IF med=1i THEN ON rea GOSUE 1820,1950 
,2100,2160,2250,22700,2%60: RETURN ELSE RE 
TURN 
PO: EE Imprimer 
900 LOCATE 3,2:PRINT i$;" AI 
lumez votre imprimante et appuyez sur un 
e touche "51% 
910 WHILE INKHEY#S<>"":WEND: WHILE INHEYS$=" 
"2: WEND 
920 LOCATE 3,2:PRINT" 
##x A MS LAINE *##+# 
930 CALL &AOOO0: PRINT #8,CHRS (27) +"à":RET 
URN 
PAQ; F EPP ERRS SE ESS SES Sauvegarde 
950 OFENOUT FNfich$ 
960 WRITE #9,tr,man,enc,fer,tr$,man$,enc 
$,fer$,rea$ 
970 WRITE #9,date$,nom$,pre$,gros$,laif$, 
fib$,typ$,bor$,mai,ran,mai$,ran$ 
980 FOR i=1 TO 7:FOR j=i TO S5:FOR k=1 TO 
Z:WRITE #9,cv(i,35,k),ch(i,3,k)=:NEXT k,5 
si 
990 FOR i=1 TO 7:FOR j=1 TO S:FOR k=1 TO 
2:WRITE #9,cotv(i,5j,k),coth(i,j,k):NEXT 
k, Ji 
1000 WRITE #9,#f1,f11,#f12 
1010 CLOSEOUT : RETURN 
LO20: “ ===-=-----2--s--—e +-—-——-Chargement 
1030 w=6: GOSUB 1750:LOCATE #w,5,2:FRINT 
#w,"##"3:19%5 "CHARGEMENT d'un TRICOT";1$;" 
##": LOCATE #w,3,4: PRINT #w,'"Nom du fichi 
er:" 
1040 y=4: x=19: masque$=" . 
4: GOSUER 720:fich$=a$ 
1050 OPFENIN fich$ 
1060 INPUT #9,tr,man,enc,tfer,tr$,man$,en 
c$,fer$,rea$ 
1079 INFUT #9,date$,nom$,pre$,gros$,laif$ 
sfib$,typ$,bor$,mai,ran,mai$,ran$ 
1080 FOR i=i TO 7:FOR j=1 TO S:FOR k=i T 
O 2:INPUT #9,cvi,3j,k),ch(i,j,k):NEXT k, 
j,i 
1090 FOR i=1 TO 7:FOR j=1 TO S:FOR k=i T 
2:INPUT #9,cotv(i,5j,k),coth(i,5,k):NEX 
T k,3j,i 


“saa= 


AMSLAINE 





1100 INPUT #9,#f1,#f11,#f12 

1110 CLOSEIN:CLS #6: GOSUB 12380 

1120 GOSUB 1670: GOSUB 1700:ech=-i:RETURN 
LES FESSES Saisie de l'’echantililon 
1140 POKE 8&B632,%FF:ech=-1i:w=0: GOSUB 138 
0:° Masque echantillon 

1150 IF rea THEN f1=f1+1 

1160 y=S:x=7:IF date$<>"" THEN masque$=d 
ate$t ELSE masque$="_ / / " 

1170 aa=1:GOSUB 720:date$=a$t:" Date 

1180 y=/7:x=2:1F nom$<>"" THEN masque$=no 
m$ ELSE masque$=STRINGS(135," ") 

1190 aa=2:GOSUEH 720:nom#=a$: " Nom 

1200 y=9:x=2:1F pre$<>"" THEN masque$=pr 
e$ ELSE masque$=STRINGS(13,"_") 

1210 aa=2: GOSUB 720:pre$=a$: " Frenom 
1220 y=12:x=-8:1F gros$<>"" THEN masque$= 
gros$ ELSE masque$=" 7" 
1230 aa=3:GO0OSUB 720:grosb=a$: 
laine 

1240 y=14:x=8:1F lai$<;"" 
ai$ ELSE masque$="  " 
1250 aa=?:GOSUB 720:1a1i$=a$: % laine 
1260 y=15:x=9:IF fib$<>"" THEN masque$=f 
ib$ ELSE masque$="  " 

1270 aa=2:GOSUB 720:fib$=a$:" % fibres 
1280 ph=9:c=é:yy=17:GOSUB 1350: typ$=v$(p 
h,pvi:" Type de point 

1290 ph=10:c=6:yy=19: GOSUB 1350:bor$=v#( 
ph,pv)i:" Cotes bord 

1300 y=21:x=10:IF mai$<>"" 
mai$ ELSE masque$=" __ " 
1310 aa=2: GOSUB 720:mai$=a$:mai=VAL(a$): 
*” Nb mailles echantillon 
1320 y=22:x=8:1F ran$<>"" 
an$ ELSE masque$=" _ " 
1330 aa=2:GO0OSUB 720:ran$=a$:ran=VAL (at): 
* Nb rangs echantillon 

1340 POKHE %B6E2,0:SOUND 1,4600,7:SOUND 1, 
459,7: SOUND 1,350, 7: RETURN 

1350 LOCATE 3,2:FRINT SPACES (2) ; CHR$ (24) 
sCHR$ (247) 5h$ (ph); CHRS$ (246) 3 CHRS (24) ; SPA 
CES$(71-LEN(h$ (ph))) 

1360 GOSUR 2320:LOCATE 2,yy:PRINT v$(ph,p 
MIMSPREET CE LEN(vV$(ph,pv)))2RETURN 

1370  —————-—- Masque saisie echantillon 
1:80 GOSUB 1650 

1390 LOCATE 2,5:PRINT'"Date:"; dates 

1400 LOCATE 2,6:PRINT "NOM: ":LOCATE 2,7:P 
RINT nom$ 

1410 LOCATE 2,8: PRINT"Prenom:":LOCATE 2, 
9:PRINT pre$ 

1420 LOCATE 2,11:FRINT"Grosseur":LOCATE 
2,12:PRINT'"laine:";gros$ 

1430 LOCATE 2,13:FRINl"Composition:":LOC 
ATE 2,14: PRINT'"laine: /":LOCATE 2,15:P 
RINT'"fibres: Z":LOCATE 8,14: PRINT lai$ 
:LOCATE 9,15:PRINT fib$ 

1440 LOCATE 2,16: FRINT"Type point:":LOCA 
TE 2,18: FRINT"Cotes bord:":LOCATE 2,17:P 
RINT typ$:LOCATE 2,19:PRINT bor$ 

1450 LOCATE 2,20:PRINT"10cm / 10cm":LOCA 
TE 2,21: PRINT"mailles:":LOCATE 2,22:FRIN 
T'rangs:":LOCATE 10,21:PFRINT mai$:LOCATE 


Grosseur 


THEN masque$=1 


THEN masque$= 


THEN masque$=r 


8,22:PRINT ran$ 

1460 RETURN 

1470  ———————-—— Choix de la realisation 
1480 IF f11=0 OK pv=v(ph) THEN RETURN 
1490 rea=pv:rea$=v$ (ph,pv)+5PACES(1o-LEN 
(V$(ph,pv))):rea$=LEFTS$(rea$, 7) 

1500 IF f11=1 THEN f1=f1+1 

1519 RETURN 


2520 Choix du tricot 
1530 IF (tr<>O AND f12<5) OR pvzv(ph) TH 
EN f12=f12-1:RETURN 


1549 tr=pvi:tr$=v$ (ph,pv)+SPACES(1o-LEN(v 
$S(ph,pv))-2):#f1=f1+1:RETURN 


29590 Choix des enmanchures 
1560 IF (man<>0O AND f12<5) OR pv=v(ph) T 
HEN f12=f12-1:RETURN 


1579 man=pv:man$=v$ (ph,pv)+SFACES(1o-LEN 
CVS (Ph,pPV))):#f1=f#f1+1:RETURN 
1580  —————————————— Choix de l'’encolure 
1590 IF (enc<>O AND f12<5) OR pv=v{(ph) T 
HEN f12=f12-1: RETURN 
1600 enc=pvienc$=v$ (ph,pv)+SPACES(10o-LEN 
CVS (ph,PpPV))):#1=f1+1: RETURN 
1610  —————————-—— Choix de la fermeture 
1620 IF (fer<>O AND f12<5) OR pv=v(ph) T 
HEN f12=#f12-1:RETURN 
16830 fer=pv:fer$=v$(ph,pv)+SPACES(10-LEN 
CVS (Ph, pV))):#f1=#f1+1:RETURN 
1640  ———————————————— Cadre echantillon 
1650 MOVE 2,342: DRAWR 112,0: DRAWR 0, -700 
: DRAWR -112,0:DRAWR 0,300:MOVER 113,-2:D 
RAWR O,—-200:DRAWR —-111,0:MOVER 112,0:DRA 
WAR O,298:MOVER 1,-2:DRAUR O,-2V6: RETURN 
1660 ————————————————————— Cadre tricot 
1670 LOCATE 17,4:FRINT "Tricot Enmanc 
hure Encolure Fermeture":Ll 
OCATE 17,95:FRINT FNreal$ 
1680 MOVE 122,254: DRAWR 0,-36: DRAWR 454, 
O: DRAWR 0,76: MOVER 1,-2: DRAWR 0,-36: DRAW 
KR —-433,0:MOVER 424,0: DRAWR 0,34: MOVER 1, 
—2:DRAWR 0,-232: MOVE 204,354:DRAUWR O,-76: 
MOVE 308, 354: DRAWR 0,—-36:MOVE 476,254: DR 
AUR 9,-236: RETURN 
1670: === Cadre realisation 
1700 MOVE 568,244: DRAWR 64,0:DRAWR O,-22 
:DRAWR —-64,0:DRAWR 0,22: MOVER 65, -2: DRAW 
F O,-22: DRAWR -63,0:MOVER 64,0:DRAWR 0,2 
:MOVER 1,-2: DRAWR 0,-18 
0 TAG: MOVE 972,340:FRINT rea$;:TAGOFF 
2: RETURN 
1720: À sms Cadre aide 
1730 MOVE 36,248: DRAWR 560,0: DRAWR 0,-19 
2: DRAWR -560,0:DRAWR O,192:MOVER 2,-194: 
DRAUR 559,0:DRAWR 0,192:MOVER 1, -2: DRAWR 
0,—-190: MOVER 1,0: DRAWR 0, 188: RETURN 


2740 —————— Cadre chargement 
1750 CLS #6: MOVE 28,184:DRAUR O,64:DRAWK 
Z228,0:DRAWR 0O,-64:DRAWR —-738,0:MUVER 72, 


—Z: DRAWR 227,0: DRAWR O,64:MOVER 1, 
WR O0,-62: MOVER 1,0: DRAWR 0, 60: RETURN 
LEE T se ===s Trace du dessin 
1770 MOVE 0,0 

1780 READ n,xr,yr:MOVER xr,yr 

1790 FOR i=i TO n:READ xr,yr:DRAWR xr,yr 
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—2:DRA 





: NEXT: RETURN 

1800 ‘ 
1810 IF tr=5 THEN RETURN 

1820 IF tr<>4 THEN RESTORE 23750:GOSUEB 17 

79:° Dessin 

1830 IF tr=4 THEN RESTORE 3760:GOSUB 177 

O:READ xr,yr:MOVE xr,yr:FOR a=1 TO 166 S 

TEF 8:DRAWR 4,0: MOVER 4,0:NEXT 

1840 IF man=1i THEN RESTORE 3810 ELSE IF 

man=2 THEN RESTORE 3820 ELSE RESTORE 383 

0 

1850 GOSUR 1770: GOSUB 1780: Enmanchure 

1860 IF enc<>1i AND enc<>sS5 THEN RESTORE Z 

860: GOSUB 1770: ° Encolure 

1870 IF enc=1 THEN RESTORE 3850:GOSUR 17 

70: Encolure 

1880 IF enc=S5 THEN RESTORE 3870:GOSUR 17 

70: ° Encolure 

1890 IF tr<>3 AND (man=1 OR man=2) AND e 

nc=1i THEN RESTORE 4080:GO0SUB 2390:° Sais 

ie 

1900 IF tr<>35 AND ((man=1i OR man=?2) AND 

enc<>i AND enc<>5) OK ((man=3 OR man=4) 

AND enc<>5) THEN RESTORE 4130:GO0SUB 2599 

: RETURN 

1910 IF (enc=5 AND tr<>3) OR (tr=3 AND e 

nc=7 AND man<>5) THEN RESTORE 4180: GOSUB 
23590 

1920 RETURN 

1290 Devant 

1940 IF tr=5 THEN RETURN 

1950 IF tr<>2 AND tr<>4 THEN RESTORE 275 

O0: GOSUB 1770 ELSE IF tr=2 THEN RESTORE Z 

770: GOSUB 1770: Dessin 

1960 IF tr=4 THEN RESTORE 3760:GOSUB 177 

OSREAD xr,yr:MOVE xr,yr:FOR a=1i TO 166 S 

TEP 8: DRAWR 4,0:MOVER 4,0:NEXT 

1970 IF man=i THEN RESTORE 3810 ELSE IF 

man=2? THEN RESTORE 3820 ELSE RESTORE 383 

0 

1980 GOSUB 1770:I1F tr<>2 THEN GOSUEB 1780 

: ° Enmanchure 

1990 IF tr<>2 AND enc<>8 THEN IF enc=i 0 

R enc=S OK enc=é6é THEN RESTORE 3860: G6O0OSUB 
1770 ELSE IF enc=2 OR enc=3s THEN RESTOK 

E 3880:G60SUB 1770 ELSE IF enc=4 THEN KES 

TORE 3900:GOSUB 1770 ELSE RESTORE 23890:6 

OSUB 1770: ° Encolure 

2000 IF tr=2 AND enc=7 THEN KESTORE 3910 
:GO0SUB 1770: ° Encolure 

2010 IF tr=2 AND (enc=2 OR enc=s) 

ESTORE 5920:GO0SUB 1770: Encolure 

2020 IF tr=£ AND man=3 AND enc=7 THEN RE 

STORE 4180:GOSUB 2390:° Saisie | 

2050 IF tr<>2 AND tr<>3 AND enc<>4 AND e 

nc<>7 THEN RESTORE 41530:G60SUB 2399 

2040 IF tr<>2 AND tr<>3 AND ((man<S5 AND 

enc=4) OR (enc=7 AND (man=3 OK man=4))) 
THEN RESTORE 4180:GOSUR 2390 

20590 IF tr<>2 AND tr<>3 AND enc=7 AND (m 

an=i OR man=2) THEN RESTORE 4230:G0OSUB 2? 

390 

2060 IF tr=2 AND (man=i OR man=2) AND en 

c=7 THEN RESTORE 4289:GOSUB 2390 


THEN K 


40 


2070 IF tr=2 AND ((man<S5 AND (enc=2 OK e 
nc=3)) OR (enc=7 AND (man=3 OR man=4))) 
THEN RESTORE 4530:GOSUB 23590 

2080 RETURN 

2090 ‘ 
2100 IF tr<4 THEN RETURN 

2110 IF tr=4 THEN RESTORE 3780 ELSE REST 
ORE 3790:° Tricot 

2120 GOSUB 1770:1F tr=4 THEN MOVER -2,0: 
FOR a=128 TO 1 STEP -8:DRAWR -4,0:MOVER 
—4,0:NEXT 

2130 IF tr=4 THEN RESTORE 4380 ELSE REST 
ORE 4430:° Saisie 

2140 GOSUB 2390:RETURN 

24950 Manches longues 
2160 IF tr=3 OR tr=S OR man=S THEN RETUR 
N 

2170 IF man=i THEN RESTORE 3940:GOSUB 17 
790: RESTORE 4480:° Dessin,Saisie 

2180 IF man=2 THEN RESTORE 35950:60SUB 17 
70: RESTORE 4530 

2190 IF man=3 THEN RESTORE 3940:GOSUEB 17 
70: RESTORE 4580 

2200 IF man=4 THEN RESTORE 35970:GO0SUEB 17 
7O:RESTORE 4650 

2210 GOSUR 2390:RETURN 

2220 ‘ —————————————————- Manches courtes 
2250 IF tr=3 OR tr=5 OR man=S THEN RETUR 

N 

2249 IF man=1i THEN RESTORE 23980:G6OSUB 17 
7O:RESTORE 4680:° Dessin,Saisie 

2250 IF man=2 THEN RESTORE 3990:6G0SUB 17 
7O0:RESTORE 4730 

2260 IF man=35 THEN RESTORE 4000:GOSUB 17 
7O:RESTORE 4780 

2270 IF man=4 THEN RESTORE 4010:6GOSUB 17 
70: RESTORE 4830 

2280 GOSUB 2390:RETURN 

2290  ——-----—_——————————————— —— Col 
2300 IF tr=5 OK enc=8 THEN RETURN 

2310 IF enc<>7 THEN RESTORE 4030 ELSE KE 
STORE 4040:° Dessin 

2320 GOSUR 1770 

2350 IF enc<>7 THEN RESTORE 4880 ELSE RE 

STORE 4930: ° Saisie 

2340 GOSUB 25390:RETURN 

2350  -—————————————— — ——————————— Poches 
2360 RESTORE 4060: GOSUE 1770:° Dessin 
2370 RESTORE 4980:6GOSUER 2390:RETURN: © Sa 
isie 

2380 * ————-—--—-—- Saisie cotations tricots 

2390 IF rea=0 THEN RETURN 

2400 CLS #4:FOR j=1 TO 4:GO0SUB 1770: NEXT 
:° Dessin lignes cotation 

2410 READ nsv,nsh,dh:FOR i=1 TO nsv:READ 
cv(rea,i,1) ,cv(rea,i,2) 

2420 LOCATE cvirea,i,1) ,cv(rea,i,2):PRIN 
T USING"###. H"s:cotv(rea,i,1) 

24309 haut=cotv(rea,i,1):LOCATE cv(rea,i, 
1)+dh,cv(rea,1i,2):PRINT USING"####H#";FNra 
ng:NEXT 

2440 FOR i=i TO nsh:READ ch(rea,i,1),ch({ 
rea,i,2) 

2450 LOCATE chi(rea,i,1i),ch(rea,i,2):PRIN 





T USING'"###.#";coth(rea,i,1) 
2460 larg=coth(rea,i,1):LOCATE ch(rea,i, 
1)+2,ch(rea,i,2)+1:PRINT USING"###";FNma 
11: NEXT 
2470 LOCATE ch(rea,2,1)-8,ch(rea,2,2):PR 
INT"'om "; CHR$ (243) :LOCATE ch(rea,2,1)-8, 
ch(rea,2,2)+1:PRINT'"mail.";CHR#& (243) : LOC 
ATE cvtrea,1l,1)+1,cv(rea,1,2)+3:PRINT'"cem 
":LOCATE cvirea,i,1)+2,cv(rea,1,2)+2:FRI 
NT CHR$ (240) 
2480 LOCATE cv(rea,1i,1)+dh+1,cv(rea,1i,2 
+3: PRINT'"rangs'":LOCATE cv(rea,i,1)+dh+3, 
cv(rea,1,2)+2:PRINT CHR$(240):LOCATE ch{ 
rea,1,1)+6,ch(rea,1,2):PRINT"cm":LOCATE 
ch(rea,1,1)+6,ch(rea,1,2)+1:PRINT"maiille 
s" 
2490 IF ph=3 THEN RETURN 
2300 p=i:nb=0: FOR i=i TO nsv:x=cv(rea,i, 
1):y=cv(rea,i,2):FOR t=i TO 400:NEXT 
2510 SOUND 1,450,20:GOSUB 2580:cotvi(rea, 
i,1)=nb: Cotv(rea. 1,2)=FNrang:IiF INKEY(63 
)=128 OR JOY(0)=8 THEN GOSUB 2710:RETURN 
2520 IF (INKEY(79)=0 OR JOY(O)=4) AND i> 
1 THEN nb=cotv(rea,i-1,1):1=1i-2 
2530 NEXT 
2540 p=2:FOR i=1 TO nsh:nb=0:x=ch(rea,i, 
1):y=ch(rea,i,2):FOR t=1 TO 400:NEXT 
25930 SOUND 1,450,20:GOSUB 2580:coth(rea, 
1,1)=nb: cbthitres, 1,2)=FNmail:IF INKEY(6Z 
)=128 OK JOY(O)=8 THEN GOSUB 2710:RETURN 
2560 IF (CINKHEY(79)=0 OR JOY(O)=4) AND 1i> 
1 THEN 1i=1i-2 
2570 NEXT:GOSUR 2710:RETURN 
2580 IF p=i THEN nb=MAX (cotv(rea,1i,1),nb 
) ELSE nb=MAX (coth(rea,i,1) ,nb) 
2590 WHILE INKEY(6)<>0 AND JOY(0)<>16:F0 
R t=1 TO Z?20:NEXT 
2600 LOCATE x,y:PRINT i$; USING"###.#";nb 
32:PRINT 1i$ 
2610 IF INKEY(0)=0 
b+0.5 
2620 IF (INKHEY(2)=0 OR JOY(0)=2) 
O THEN nb=nb-0.5 
2630 IF INKEY(O)=22 OK JOY(0)=17 THEN nb 
=nb+10 
2640 IF (INKEY(2)=32 OR JOY(O0)=18) AND n 
b>10 THEN nb=nb-10 
2650 ON p GOSUE 2680,2690:LOCATE %x,y:FPKRI 
NT USING"###.#"; nb 
2660 IF INKEY(63)=128 OR JOY(0)=4 OK INK 
EY(79)=0 THEN RETURN 
2670 WEND:RETURN 
2680 haut=nb:LOCATE 
### "3: FNrang: RETURN 
2690 larg=nb:LOCATE 
###": FNmai 1: RETURN 
2700 Affichage commentaires 
2710 CLS #4:FRINT #4,"-Monter";coth(rea, 
1,2)5;" mailles." 
2720 IF rea<>35 AND rea<é AND tr<4 THEN 6 
OSUB 2830: Augmentation apres cotes 
2730 IF rea=4 OR rea=5 THEN GOSUB 2840: ° 
Augmenter manches 
2740 IF tr<>5 AND rea<>3 AND 


OR JOY(O)=1 THEN nb=n 


AND nb> 


x+dh,y:PRINT USING"# 


X+2,y+1:PRINT USING" 


rea<>é AND 


rea<>7 AND man<>1 AND man<>5 THEN GOSUB 


2880: ° Diminuer enmanchures 

2750 IF rea=2 AND enc=7 THEN GOSUB 2970: 
Diminution encolure en ‘V: 

2760 IF (rea=i AND enc<>1i) OR (rea=2 AND 
(enc=i OR enc=S5 OR enc=6)) THEN GOSUB 3 

O020:° Encolure dos sauf droite 


2770 IF rea=2?2 AND enc>i AND enc<Ss THEN G 
OSUB 3040:° Diminution encolure ronde de 
vant 

2780 IF rea<5 AND tr<>5 AND man>2 THEN G 
OSUB 3070: ° Fente d'epaule 

2790 IF rea>3 AND rea<é AND man>? AND ma 


n<9 THEN GOSUB 3110: Diminution manches 
2800 IF rea=3 AND tr>3 THEN GOSUB 31460: ° 
Diminution jupe 

2810 IF rea=6 AND tr<5 AND enc=7 THEN 60 
SUB 3190: ° Diminuer bande d'encolure 
2820 RETURN 

2830 FRINT #4,"-Apres ";cotv(rea,1,2);" 
rangs, ":agc=coth(rea,1i,2)/10:PRINT #4, 
augmenter"; agc; "mailles. ":RETURN 
2840 IF man<}>4 THEN tm=coth(rea, 2? 

E tm=coth(rea,2,2)#?2+coth(rea,s, 2) 
2850 idi=2:id2=1:rd=0:GOSUB 35220: dm=<INT( 
(tm-coth(rea, 1,2) -agc)/2):GOSUB 3270 
2860 IF ai>O THEN FRINT #4,"-Augmentatio 

n manches:":G6GOSUB 3230 

2870 RETURN 

2880 larg=coth(1,1,1)/10:dm=FNma il: GOSUB 
3250: PRINT #4,"-Diminuer enmanchure:":F 


2) ELS 


RINT #4,d#;:1F man>i THEN PRINT #4," pui 
s" 

2890 IF man<>2 THEN RETURN 

2900 IF (rea=2 AND enc=4) OR (rea=i AND 
enc=S5) THEN id1i=5 


2910 IF rea=i AND (enc=2 OR enc=3 OR enc 
=4 OR enc=6 OK enc=7) THEN id1i=4 

2920 IF rea=2 AND (enc=1i OR enc=2 OR enc 
=3 OR enc=S OR enc=6 OR enc=7) THEN idi= 
4 

2930 IF enc=i AND rea=i THEN idi=3z 

2940 IF rea<3s THEN id2=2:G6GO0OSUB 3220:dm=( 
coth(rea,1,2)-coth(rea,3,2)+agc)/2-dm:G0 
SUB 3270:GOSUB 3230 

2950 IF rea=4 OK rea=5 THEN idi=4:id2=2: 
GOSUB 23220: dcm=coth(rea,2,2)/10:dm=(coth 
(rea,2,2)-dcem)/2-dm:GOSUB 3270: G6GOSUB 323 
O: PRINT #4,"-Diminuer au centre:":dn=(co 
tv(rea,4,2)-cotv(rea,3,2))/2:G6GOSUB 3280: 
d$=d$+STRS (res) :PRINT #4, d$ 

2960 RETURN 

2970 IF man<3S THEN idi=4 ELSE IF man<s T 
HEN idi=5 

2980 id2=3:1F tr=2 THEN idi=idi-i:id2= 
2990 rd=0:GOSUB 3220:dm=coth(rea, 3,2)/2: 
IF tr=2 THEN dm=coth(rea,z,2) 

3000 GOSUBR 3270:IF a1>0O THEN PRINT #4, 
Diminution encolure:":6OSUB 3230 

3010 RETURN 

3020 ded=coth(1,3,2)/2:dedi=ded/2:ded2=1\{ 
ded-ded1)/3*2:ded5=-ded-dedi-ded2 

3030 PRINT #4,"-Diminution encolure:":PR 
INT #4,ded1i;"-";ded2;"-";dedz: RETURN 


000 
") 








3040 idi=4:id2=3:1F enc=4 THEN idi=5:1id2 
=4 

3050 GOSUB 3220:1F tr<>2 THEN dm=CINT(co 
th(rea,3,2)/2) ELSE canin res; 2? 
3060 GOSUR 3250:FRINT #4,"-Diminution en 
colure:":PRINT #4,d$:RETURN 

3070 PRINT #4,"-Diminution epaules:":dep 
=coth(rea,2,2)/3:res=(coth(rea,2,2) MOD 
3)+1:0N res GOSUB 5080,:090, 3100:RETURN 


3080 PRINT #4,dep;"-";dep;"-";dep:RETURN 
3090 PRINT #4,dep;"-";dep;"-";dep+1:RETU 
RN 

3100 PRINT #4,dep;"-";dep+1i;"-";:dep+1:kRE 
TURN 

3110 IF man=3S THEN dm=coth(rea,2,2):dcem= 


dm/11:dn=dem/4 ELSE dm=coth(rea,2,2)#2+c 
oth(rea,3,2):dcem=coth(rea,3z,2): dnebdens/s 
3120 GOSUB 5280:1F man=s THEN d$=d$+STRS 
(res) :tmd=somtdem#1.S ELSE tmd=som+demxi 
-9-res 

3130 idi=3:id2?=2:rd=0: GOSUE 3220:dr=dr-r 
d-dn*x2:dm=dm/2-tmd:GOSUB 3270: GOSUB 3230 
PRINT #4,"-Diminuer ensuite":FRINT #4,d 
$ 

3140 IF man=3 THEN FRINT #4,'"-Fermer les 
"dem; "mailles":PRINT #4," restantes." E 
LSE idi=4:id?2=5%:rd=0:GOSUB 3220:FRINT #4 
»s"—Tricoter l'epaule.":PRINT #4," puis d 
iminuer";:dn=(cotv(rea,5,2)-cotv(rea,4,2 
))/2:GOSUB 5280:d$-d$#+STR$ (res) :FRINT #4 
,d$; 

31950 RETURN 

3160 idi=2:id2=1:rd=0:GOSUB 3220:dm=(cot 

h(rea,1,2)-coth(rea,2,2))/2:GO0SUB 3270 
3170 IF a1>0 THEN PRINT #4,"-Diminuer ap 
res cotes:":GOSUB 3270 

3180 RETURN 

31990 dr=cotv(rea,1,2):dm=(coth(rea,1,2)- 

coth(rea,2,2))/2:GOSUB 3270 

3200 IF a1>O THEN PRINT #4," 

aque cote:":6GOSUB 3230 

3210 RETURN 

3220 dr=cotvi(rea,idi,2)-cotv(rea,id2,2)- 
rd: RETURN 

3230 IF a1>O THEN FRINT #4," 1 maille to 

us les'":PRINT #4,a1; "rangs"; dm;"#fois":1F 
res>O THEN PRINT #4," 1 maille tous les 
“PRINT #4,ai+1;"rangs";dif; "fois" 

3240 RETURN 

3250 res=dm:som=0:rd=0:d$-="":dd=1: WHILE 

dd>O0 AND som<dm:rd=rd+2:dd=res/2.5:d$-d# 

+STR$ (dd)+"-":res=res-dd:som=som+dd:WEND 

3260 Ild=LEN(d#$)-2: d$=LEFTS(d$,1d)+"1":RE 

TURN 

3270 IF dm>0 THEN ai=INT(dr/dm):res=dr M 

OD dm:IF res>0 THEN dif=dr-dm#ai:dm=dm-d 
if: RETURN 

3280 dd=0:FOR d=1 TO dn:dd=dd+d:NEXT:d#= 
“u:res=dem:FOR d=dn TO 2 STEF -1:mn=dem/ 

dd*#d:d$=d$+STRS$ (mn)+"-":res=res-mn:NEXT: 

RETURN 

SLDO === Programme principal 

3300 WHILE NOT ech AND NOT fin:GOSUB 250 
:° Menus 


—Diminuer ch 


42 


3310 ON ph GOSUB 470,1140,860,430,430,43 


Echantillon,âäide,Fin 
1650: WEND: GOSUB 1380: GOSUB 16 


0,450,430:" 
3320 GOSUB 
70 

3330 WHILE 
3340 WHILE f1<>4:G6OSUB 250:#f12=f12+1 
3350 ON ph GOSUB 470,1140,860,1480,1530, 
1560, 1590, 1620: ‘Choix type tricot 

3360 IF fin THEN RETURN 

3370 GOSUB 1580:60SUB 146470:WEND:GOSUB 17 
00 

3380 f11=1:f1=f1-1:CLS #5 

3390 ON rea GOSUB 1810,1940,2100,2160,22 
30,2300,2369:° Kealisations 

3400 WEND: RETURN 

35410  —-———-—-—-—— Chargement codes Hardcopy 
3420 RESTORE 3640 

3430 FOR i=%A000 TO &AOOO+&CB: READ code$ 
3440 code=VAL ("&"+code$):POKE i,code 
3450 NEXT:RETURN 

3460  ——--—- Traitement erreur chargement 
3470 IF DERR=144 THEN CLS:GOSUB 1750:LOC 
ATE #6,3,2:FRINT #6,"Nom incorrect'!!'!"il 
OCATE #6,3,4:FRINT #6, "Appuyez une touch 
e":WHILE INKHEY$="":WEND: IF med=3 THEN RE 
TURN ELSE RESUME 1030 

3480 IF DERR=146 THEN CLS:GOSUB 1750:L0C 
ATE #6,53,2:FRINT #6,"Fichier absent'!!!": 
LOCATE #6,3,4:PRINT #6, "Appuyez une touc 
he":WHILE INKEY$="":WEND: RESUME 1070 
3490 IF DERR=148 THEN CLS:GOÜSUB 1750:LO0OC 
ATE #6,5,2:PRINT #6,"Disquette pleine!!! 
“:LOCATE #6,3,4:FRINT #6, "Appuyez une to 
uche":WHILE INKEY$="":WEND: RESUME 950 
3500 RETURN 

BAIO, ? esse sn Datas menus 
3520 DATA “Fin","Echantillon",;"Media","R 
ealiser","Tricot","Enmanchure", "Encolure 
“,"“Fermeture","Type de point","Cotes bor 
d' 

3530 DATA 2,"Annulation", 
3540 DATA © 
3550 DATA 5, 


NOT fin 


“Confirmation 

“Aide","Imprimer","Sauvegard 

e","Chargement",'"Retour menu“ 

3560 DATA 8, "Dos", "Devant","Jupe","Manch 

es longues","Manches courtes","Col","Foc 

hes","Retour menu“ 

3570 DATA 6, "Pullover","Gilet", 
r", "Robe", "Jupe","Retour menu" 

3580 DATA 6, "Droite","Raglan“,"Ronde","M 

arteau","Sans “,"Retour menu“ 

3590 DATA 9,"Droite","Ras du cou“","Chemi 

nee" ,"Ouverte devant","Ouverte derriere" 

, Ouverte sur l'epaule","En ‘V'","Sans", 
“Retour menu" 

3600 DATA 4,"Boutons", 
, "Retour menu“ 

3610 DATA 9,"Jersey", 

nt de riz","Foint de ble", 

otes 2/2","Cotes perlees", 
“","Fantaisie" 

3620 DATA 4,"Cotes 1/1","Cotes 2/2", 

es perlees","Cotes anglai." 

3630 * === Hardcopy graphique 


“"Debardeu 


“Glissiere“", "Sans" 


“Point mousse","Poi 
“Cotes 1/1","C 


“Cotes anglai. 


"Cot 





TURBO PASCAL 
Douglas Stivison 
Réf. S01. 210 p., 148 F 

Ce livre a été écnit afin d'aider les 
utilisateurs d'Amstrad à développer aussi 
rapidement que possible les programmes 
en Turbo Pascal 


Nouveau 

L'ASSEMBLEUR 

SOUS CP/M 

Anatole d'Ardancourt et Michel 
Laurent 

Réf. S02, 200 p., 148 F 

Cet ouvrage a pour but de familiariser le 
programmeur en assembleur avec ces 
utilitaires mis à sa disposition sous le 
système d'exploitation CP/M+ 


Nouveau 

MUSIQUE ET SON 

Gérard Blanc et Philippe 
Destrebecq 

Réf. S03, 160 p., 138 F 

Ce livre décnit la mise en œuvre du 
synthétiseur musical de l'Amstrad 


Nouveau 

JEUX D'AVENTURE 

Franck Vivier et Jean-Luc Joude 

Réf. S04, 224 p., 128F 

Ce livre se propose, au fil des chapitres, 
d'amener le lecteur à la résolution d'un 
problème complet, la programmation d'un 
jeu d'aventure 


GEREZ VOTRE 
PORTEFEUILLÉ BOURSIER 
Jean-Claude Despoine et 

François Plerre 

Rét. S05, 140 p., 28 F 

Cet ouvrage aidera l'amateur à gérer plus 
efficacement son portefeuille de valeurs 


PROGRAMMEZ VOTRE 
TRAITEMENT DE TEXTE 
Jean-Claude Despoine 

Réf. S06, 140 p., 128 F 

Le traitement de texte présenté dans cet 
ouvrage, pour l'essentiel en assembleur, 
est destiné à tous les possesseurs de 
CPC 464 (avec ou sans lecteur de 
disquettes), 664 et 6128 


PROGRAMMES 
D'INTELLIGENCE 
ARTIFICIELLE 

Daniel Lebigre 

Réf. S07, 240 p., 148 F 

Cet ouvrage permettra au lecteur 
d'aborder le monde fascinant de 
l'intelligence artificielle 


MIEUX PROGRAMMER 

EN ASSEMBLEUR 

Thomas Lachand-Robert 

Réf. S08, 240 p., 148 F 

Cet ouvrage est destiné à tous ceux qui 
ont déjà acquis les bases de la 
programmalion en assembleur ou en 
langage machine 


TECHNIQUES DE 
PROGRAMMATION DES 
JEUX EN ASSEMBLEUR 
Georges Fagot-Barraly 

Réf. S09, 160 p., 98 F 

Cet ouvrage contient des programmes 
de jeux écrits pour les ordinateurs 
Amstrad CPC 464, 664 et 6128 


JEUX EN ASSEMBLEUR 

Eric Ravis 

Réf. S10, 104 p., 78F 

Les 18 jeux présentés dans ce livre 
utilisent toutes les possibilités de votre 
micro-ordinateur. 


lle 


DIFFUSION 





coin du livre 


LOCOSCRIPT 

Bernard Le Dü 

Réf. S11, 140 p., 110F 

Ce livre est une introduction et, par sa 
démarche pédagogique, il vous 
permettra une découverte aisée et rapide 
de ce traitement de texte 


MISE AU POINT DES 
PROGRAMMES BASIC 
Claude Vivier et Yvon Jacob 

Réf. S12, 148 p., 98 F 

Ce livre étudie la manière dont sont 
stockés, dans la mémoire d'un micro- 
ordinateur, un programme Basic et ses 
vanables associées 


JEUX DE REFLEXION 

Georges Fagot-Barraly 

Réf. S13. 200 p., 78 F 

Cet ouvrage contient vingt programmes 
de jeux de réflexion écrits pour les 
ordinateurs Amstrad 


ASTROCALC 

Gérard Blanc et Philippe 
Destrebecq 

Réf. S14, 168 p., 148 F 

Si vous souhaitez disposer d'un outil de 
calculs permettant l'érection d'un thème 
natal ou d'une révolution solaire, Ja 
comparaison de thèmes, cet ouvrage 
vous comblera 


CREER DE NOUVELLES 
INSTRUCTIONS 

Jean-Claude Despoine 

Réf. S15, 144 p., 128 F 

Cet ouvrage contient de nombreux 
exemples de programmes : pause de x 
secondes, intégration d'un programme 
machine, dessin d'un quadrilatère 


GAGNEZ AUX COURSES 
Jean-Claude Despoine 

Réf. S15,112p., 98 F 

Ce livre se propose d'expliquer comment 
ilest possible d'utiliser un ordinateur pour 
étudier une course d'une manière 
rationnelle et rapide 


CP/M PLUS 

Anatole d'Hardancourt 

Réf. S17, 208 p., 148 F 

Après le succès des CPC 464 et CPC 
664, utilisant la version 2.2 de CP/M, 
Amstrad présente ses deux nouvelles 
machines (CPC 6128 et PCW 8256) 
équipées de la version 3 0, encore 
appelée CP/M Plus 


GUIDE DU BASIC 

ET DE L'AMSDOS 

Jean-Louis Greco et Michel 

Laurent 

Réf. S18, 288 p., 128 F 

Ce guide est un dictionnaire complet du 
Basic Amstrad disponible sur les modèles 
CPC 464, CPC 664 et CPC 6128 


GRAPHISME 

EN TROIS DIMENSIONS 
Thomas Lachand-Robert 

Réf. S19, 240 p. 148F 

Vous pourrez, grâce à ce livre, 
représenter des polyèdres, des surfaces 
voire des objets plus complexes en trois 
dimensions sur l'écran de votre 
ordinateur 


ASTROLOGIE/ 
NUMEROLOGIE/ 

BIORYTHMES 

Pierrick Bourgault 

Réf. S20, 160 p., 108 F 

Cet ouvrage se présente en quatre 
parties : astrologie occidentale, astrologie 
chinoise, numérologie, biorythmes 


CP/M 2.2 

Anatole d'Hardancourt 

Réf. S21, 248 p., 128 F 

Avec l'Amstrad, le système CP/M 
disponible pour le première fois sur un 
ordinateur coûtant moins de cinq mille 
francs, ouvrant à celui-ci l'immense 
bibliothèque des programmes 
d'applications professionnelles. 


GUIDE DU GRAPHISME 

James Winford 

Réf. S22, 208 p., 108 F 

Cet ouvrage présente, à l'aide 
d'exemples de programmes en Basic, 
toutes les techniques indispensables 
pour permettre au lecteur de réaliser de 
façon simple et rapide ses programmes 
graphiques. 


L'AMSTRAD EXPLORE 

John Braga 

Réf. S23, 192 p., 108 F 

A ceux qui ont déjà acquis les rudiments 
du Basic, ce livre permettra d'approfondir 
leur connaissance de la programmation 


PROGRAMMATION 

EN ASSEMBLEUR 

Georges Pagot-Barraly 

Réf. S24, 208 p., 108 F 

Tous les utilisateurs d'Amstrad qui 
veulent aller plus loin, après avoir maitrisé 
les ressources du Basic, trouveront dans 
cet ouvrage les éléments nécessaires 
pour aborder la programmation en 
assembleur 


56 PROGRAMMES 

Stanley R. Trost 

Réf. S25, 160 p., 78F 

Ce livre vous propose 56 programmes 
prêts à l'emploi dans de nombreux 
domaines d'application personnels et 
professionnels 


PREMIERS PROGRAMMES 
Rodnay Zaks 

Réf. S26, 248 p., 108F 

Ecrivez votre premier programme Basic 
sur Amstrad en moins d'une heure 


JEUX D'ACTION 

Pierre Monsaut 

Réf. S27, 96 p., 49 F 

18 jeux d'action en Basic pour votre 
Amstrad : tank, trace, D C.A., biltz, 
Squash, alphabet, numérix, atterrissage, 
etc 


LA DECOUVERTE 

DE L'AMSTRAD 

D.J. David 

Réf. PO1, 216 p.,115F 

Cet ouvrage apprend à programmer en 
Basic l'Amstrad CPC et à en utiliser les 
capacités graphiques et sonores. Ce livre 
s'adresse aux utilisateurs débutants de 
l'Amstrad CPC 464,664 et 6128 


EXERCICES EN BASIC 
POUR AMSTRAD 

M. Charbit 

Réf. P02, 256 p., 130 F 

Tous les programmes de cet ouvrage. 
destiné au débutant qui veut se 
pertectionner. 


BASIC AMSTRAD . 
1°)Méthodes pratiques 

J. Boisgontier 

Réf. P21, 208 p., 105 F 

Destiné aux possesseurs d'Amstrad qui 
ont déjà pratiqué le langage Basic 


BASIC AMSTRAD 

2°) Programmes et fichiers 

J. Boisgontier 

Réf. P22, 144 p.,95 F 

Pour les utilisateurs initiés, une mine 
d'applications : 

+ des programmes graphiques, 

+ des programmes de gestion de fichiers, 
- des jeux à exécution très rapide, 

- des programmes éducatifs. 


BASIC PLUS 80 ROUTINES 
SUR AMSTRAD 

M. Martin 

Réf. P23, 168 p., 100 F 

L'auteur propose 80 routines pour 
simuler des fonctions qui n'existent pas 
directement sur la machine 


PERIPHERIQUES 

ET FICHIERS 

SUR AMSTRAD CPC 

D.-J. David 

Réf. P03, 168 p., 120 F 

Ce livre étudie la programmation en Basic 
des fichiers et des périphériques. Le 
lecteur doit déjà bien maïîtnser les 
instructions de base du CPC. 


TURBO PASCAL 

SUR AMSTRAD 

D. Brandals et F. Blanc 

Réf. P04, 232 p., 135F 

Destiné aux possesseurs d'Amstrad 464, 
664, 6128 et PCW 8256, ce livre leur 
permettra de maïtriser ce langage très 
puissant. Une bonne connaissance d'un 
langage comme le Basic est nécessaire 


ASSEMBLEUR 

DE L'AMSTRAD 

M. Henrot 

Réf. P24, 192 p., 105 F 

Pour lire cet ouvrage, il faut avoir une 
bonne pratique du langage Basic 


CP/M PLUS SUR 

AMSTRAD 6128 ET 8256 

Y. Dargery 

Réf. P25, 128 p., 100 F 
L'utilisateurinitié de l'Amstrad CPC 
trouvera ici tous les éléments qui lui 
permettront d'utiliser à fond les "plus" de 
CPM3 


RSX ET ROUTINES 
ASSEMBLEUR 

SUR AMSTRAD 

D. Roy et J.-J. Weyer 

Réf. P05, 368 p., 200 F 

De très nombreux programmes de 
graphismes et de mathématiques 
permettront aux possesseurs d'Amstrad 
(464, 664,6128) d'améliorer leurs 
connaissances en assembleur Z80 


CLEFS POUR 
AMSTRAD CPC 

Tome 1 - Système de base 
D. Martin 

Réf. PO6, 224 p., 140 F 

Un mémento indispensable au 
programmeur de CPC 


CLEFS POUR 

AMSTRAD CPC 

Tome 2 - Système disque 

D. Martin et P. Jadoup 

Réf. PO7, 232 p., 155 F 

Consacré aux Amstrad CPC 464, 664, 
6128 et PCW 8256, ce mémento procure 
un accès rapide à l'ensemble des 
informations indispensables à l'utilisateur 
du système disque : commandes, points 
d'entrée des routines disque, blocs de 
contrôle 





LE LIVRE DE L'AMSTRAD 
D. Martin et P. Jadoup 

Réf. P08, 256 p., 120 F 

Pour l'amateurinitié qui veut en savoir 
plus. 


102 PROGRAMMES 

POUR AMSTRAD 

J. Deconchat 

Réf. PO9, 248 p., 120 F 

Ce livre, idéal pour le débutant, va, au fil 
de ses 102 programmes de jeux guider 
le lecteur dans l'exploration du Basic 
Amstrad. 


SUPER JEUX AMSTRAD 

J.F. Séhan 

Réf. P10, 240 p., 120 F 

Des jeux d'adresse, de réflexion et de 
hasard pour l'amateur, déjà initié, qui veut 
maîtriser rapidement le Basic. 


AMSTRAD EN FAMILLE 

J. F. Séhas 

Réf. P11, 240 p., 120 F 

Une sélection de 40 programmes pour la 
maison touchant à sept domaines. 


AMSTRAD A L'ECOLE 

D. Vielsen et A. Garcla-Ampudla 
Réf. P12, 232 p., 120 F 

21 programmes d'enseignement assisté 
par ordinateur à recopier. 


AMSTRAD EN MUSIQUE 

D. Lemahleu 

Réf. P13, 244 p., 165 F 

Cet ouvrage va permettre à l'utilisateur, 
déjà initié au langage Basic, la traduction 
d'œuvres musicales sur Amstrad. 


PHOTOGRAPHIE 

SUR AMSTRAD ET APPLE 

P. Molgneau et X. de la Tuthaye 

Réf. P14, 192 p., 180 F 

Permet à l'amateur, déjà initié au Basic, 
l'exploration de toutes les ressources de 
la photo 


CLEFS 

POUR DBASE Il ET Ill 
M. Keller 

Réf. P15, 464 p., 285 F 

Cet outil de rétérence pour tout 
programmeur 


CLEFS POUR MULTIPLAN 
Version 2.0 

J.-L. Manx et A. Thibault 

Réf. P16, 132 p., 105 F 

Cet ouvrage de référence pour 
l'utilisateur de Multiplan. 


SUPER GENERATEUR 

DE CARACTERES 

SUR AMSTRAD 

J.-F. Séhan 

Réf. P17, 216 p., 140F 

Cet ouvrage, destiné aux amateursinitiés 
au Basic, propose un programme original 
de création de caractères graphiques. 


GRAPHISME 

EN ASSEMBLEUR 

SUR AMSTRAD CPC 

F. Plerat 

Réf. P18, 304 p., 145 F 

Cet ouvrage permet de programmer des 
applications graphiques en assembleur 
sur Amstrad 


CREATION ET ANIMATION 
GRAPHIQUE SUR 

AMSTRAD CPC 

G. Fouchard et J.-Y. Corre 

Réf. P19, 128 p., 110F 

Un informaticien et un peintre se sont 
associés pour donner envie à l'amateur 
de se lancer dans la création d'images. 


= < - 


BON DE COMMANDE 


17, rue Russeil 44000 NANTES 
Frais de port en sus: 25F 


A renvoyez avec votre règlement à STAMP DIFFUSION, 


Ci-joint mon règlement par chèque ou mandat. 


Veuillez m'envoyer les ouvrages dont j'indique les titres ci-dessous. 
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3640 DATA CD,BA,BB,CD,E7,BB,32,BF,40,CD, 
6B,4A0,21,8F,01,22,C0,A0,11,00 

3650 DATA 00,35E,06,32,02,A0,CD,7B,AO0,0E, 
00,34,C2,40,47,E5,D5,C5,CD,FQ 

3660 DATA BB,C1,D1,2t,BF,AO,BE,E1,37,20, 
01,A7,CR,11,2B,10,EA,CD,B3S,A0 

3670 DATA 79,CD,AA,A0,15,E5,21,7F,02,37, 
ED,92,E1,38,05,2A,C0,A0,18,CD 

3680 DATA 23,7C,B5,C8,2B,11,00,00,22,C0, 
AO, 3E,05, BD, 20, BA, 7C, B4, 20, B6 

3690 DATA 3E,04,32,C2,A0,18,AF,SE,1B,CD, 
AA, A0,3E,233,CD, AA, A0, 3E, 10, CD 

3700 DATA AA,A0,C9,ES,3E,42,CD,1E,BB,E1, 
28,02,E1,0C9,3E,OD, CD, AA, A0,3E 

3710 DATA OA,CD,AA,A0,3E,1B,CD, AA, AO, ZE, 
2A, CD, AA, A0,3E,04,CD, AA, AO, SE 

3720 DATA 7F,CD,AA,AO0,3E,02,CD,AA,AO,C9, 
CD,2E,BD,38,FB,CD,2B,BD,C9,5A 

3730 DATA C2,A0,FE,06,C8,AF,CB,11,CB,11, 
C9,00,00,00,00,00, 00, 00,00, 00 

S740 Datas tricots 
3750 DATA 7,200,176,0,-112,162,0,0,-16,— 
158,0,0,16,162,0,0,112:° Fullover 

3760 DATA 5,200,176,0,—-128,0,16,166,0,0, 
—16,0,128,202,48:° Haut robe 

3770 DATA 7,200,176,0,-112,82,0,0,-16,-7 
8,0,0,16,78,0,0,1127:' Gilet 

3780 DATA 7,216,240,-16,-160,160,0,0,-14 
5-160,0,0,16,160,0,-16,160:" Eas robe 
3790 DATA 11,216,240,-16,-160,160,0,0,-—1 


6,-160,0,0,16,160,0,-16,160,-128,0,0,16, 
128,0,0, 4er" Jupe 

3800 = Datas enmanchures 
3810 DATA £5,202,176,-2,0,0,64,57,0,5,92, 
0,57,0,0,-64,-2,0:° Droite 

3820 DATA 53,200,176,6,2,3,2,48,60,3,52,0 
548,-60,3,-2,6,-2:" Raglan 


3850 DATA 4,200,176,6,2,3,2,0,52,48,8,4, 
92,0,48,-8,0,-52,5,-2,6,-2:° Ronde 

3840  --———————————————— Datas encolures 
5850 DATA 5,256,236,0,4,52,0,0,-4:" Enco 
lure droite 

3860 DATA 9,256,240,4, 
12,0,8,2,4,1,4,1,4,2:° Dos,kRas du cou... 
5870 DATA 13,256,240,4,-2,4,-1,4,-1,8,-2 
52:0,0,-48,2,0,0,48,5,0,8,2,4,1,4,1,4,2: 
” Dos,encol.ouv.derriere 

3880 DATA 9,256,240,4,-4,4,-2,4,-2,8,-2, 
12,0,8,2,4,2,4,2,4,4:° Devant,kRas du cou 


3890 DATA 2,256,240,26,-56,26,56:'" En ‘V 


—2,4,-1,4,-1,8,-—2, 


3900 DATA 15,256,240,4,-4,4,-2,4,-2,8,-2 
523:50,0,-40,2,0,0,40,5,0,8,2,4,2,4,2,4,4: 
Ouvert devant 

3910 DATA 1,256,240,276,-64:°" En ‘V' gile 
t 

3920 DATA 6,256,240,4,-4,4,-2,4,-2,6,—-2, 
8,0,0,-54:" Ronde gilet 

3930  ————————————————————— Datas manches 


3940 DATA 8,232,184,24,-120,52,0,0, 
48,0,0,16,52,0,24,120,-104,0 

3950 DATA 14,232,184,24,-120,52,0,0,-16, 
-48,0,0,16,52,0,24,120,-6,2,-4,2,-35,56, 


—-16,- 


44 


—14,-8,-235,-48,-53,-2, 
35960 DATA 25,252,184,274,-120,52,0,0,-16, 
—48,0,0,16,52,0,24,120,-6,2,-4,2,-13,22, 
2 7523 me 2575257, 
—4,-5,-4,-2,-4,-13,-22,-5,-2,-6,-2 
3970 bare 24,252,184,24,-120,52,0,0,-16, 
—48,0,0,16,52,0,24,120,-6,2,-4,2,-12z,22, 
254-9354, -7/7,4,-7,2,0,24,-18,-8,0,-26,-7 
5729-75-45 -95 43-23 4, 22,-3,-2,-6,- 
2 
5980 DATA 8,2252,184,20,-60,60,0,0,-16,-5 
6,90,0,16,60,0,20,60,-104,0 
5990 DATA 14,252,184,20,-60,60, 
de 680,-6,2,-4,2, 
4,-8,-235,-48, — _2,-6,-2 
4000 DATA 2: 1252, 184,20, 60, 60,0,0,-16,- 
06,0,0,16,60,0,20,60,-6,2, 
4, 5, ne 7, 4, 7,2, “tas vo = 27/3 
793 4, —4,-15 —6,—2 
4010 DATA” 24,232, 184,20, -60,60,0,0,-16, = 


-6,-2 


-13,- 


0,0,-16,- 
-35,56,-1 


—? 


=4,2,-15:22:-2 
23-7374 


rl LA 
Tag ty =2; 


96,0,0,16,60,0,20,60,-6,2,-4,2,— os 
4,-5,4,-7,4,-7,2,0,54,-18,-8,0, = 7 
SE 
A0 Datas cols 
40530 DATA 4,200,168,0,-24,166,0,0,24,-16 
6,0 

4040 DATA 4,208,168,-8,-24,166,0,-8,24,— 
152,0 

4050 Datas poche 

4060 DATA 6,252,168,0,-56,64,0,0,56,-64, 

0,0,-40,64,0 

4070 ———————————————————— Datas saisies 


4080 DATA 9,182,48,2,0,0,16,-2,0,2,0,0,1 

12,-2,0,2,0,0,64,-2,0:° Dos,encol.droite 

4090 DATA 9,2:84,48,-2,0,0,16,2,0,-2,0,0, 

112,2,0,-2,0,0,864,2,0 

4100 DATA 5,204,54,0,4,158,0,0,—4 

4119 DATA 9,200,252,0,-4,57,0,0,4,0, 

2,0,0,4,0,-4,57,0,0,4 

4120 DATA 5,4,235,17,21,17,15,17,10,32,24 

,26,8,25,8,40,8 

4150 DATA 12,182,48,2,0,0,16,-2,0,2,0,0, 

112,-2,0,2,0,0,56,-2,0,2,0,0,8,-2,0:° Do 

s,encol.ronde 

4140 DATA 12,:584,48,-2,0,0,16,2,0, 

,112,2,0,-2,0,0,56,2,0, -2,0,0, 8,2,0 

4150 DATA 3,204,:4,0,4,158,0,0,—-4 

4160 DATA 9,200,252,0,-4,57,0,0,4,0, 

2,0,0,4,0,-4,57,0,0,4 

4170 DATA 4,4,25,17,21,17,15,17,11,17,10 
35,24,26,8,:3,8,40,8 


-4,5 


-2,0,0 


—4,5 


4180 DATA 15,182,48,2,0,0,16,-2,0,2,0,0, 
112,-2,0,2,0,0,8,-2,0,2,0, 0,48, —2,0,2,0, 
0,8, _2 0: Dos,encol.ouv.devant 


4190 DATA 15,284,48, 2, 0,0,16,2,0,-2,0,0 
,112,2,0,-2,0,0,8,2,0,-2,0,0,48,2,0,-2,0 


50583250 
4200 DATA 3,204,74,0,4,158,0,0,-4 
4210 DATA 9,200,252,0,-4,57,0,0,4, ,5 


2,0,0,4,0,-4,57,0,0,4 

4220 DATA 5,4,35,17,21,17,15,17,14,17,11 
117,10,35,24,26,8,33,8,40,8 

4230 DATA 12,182, 48,2,0,0,16,-2,0,2,0,0, 
112,-2,0,2,0,0,8,-2,0,2,0,0,56,-2,0:° Do 


Logiciel d'accès direct et de gestion du disque: 

Compatible 464, 664, 6128. 

CARACTERISTIQUES : 6 nouvelles commandes pour vous permettre de réaliser l'accès directavec votre 
ordinateur AMSTRAD (lecteur A, lecteur B ou 5” 1/4). 

Ce programme contient également des utilitaires pour mieux gérer votre disquette. 

— Editeur de secteur 

- Formateur NOUV 

- Augmentation de la vitesse jstripue en 

— Et toutes les fonctions que vous nous avez demandé. 

Disque uniquement 370 F+25F de frais de port. 


DIGITALISEUR LE SCANNER 


Avec votre caméra vidéo en toute source vidéo digitalisez Digitalisez votre photo préférée, rentrez-la dans votre ordi- 
l'image que vous avez choisie. Fabriqué par Electric Studio, nateur, travaillez-la ou modifiez-la si vous le souhaitez. 
c'est un gage de qualité. Sauvegardez-la sur votre disquette et tirez-en une copie 
Possibilité de tirer la photo sur votre imprimante, de la mo- format A3 avec votre imprimante (ne fonctionne qu'avec 
difier et de la sauvegarder sur disquette à volonté. la DMP 2000). 


Prix de lancement 1400,00 F TTC + 25,00 F frais de port. Prix 890,00 F TTC + 25,00 F frais de port. 


CSA Sofiuwuare 


55. rue Tondu 33000 Bordeaux Tél 56 96 35 23 Poste 31 





EE di Le rêve !... Votre voix dans votre ordinateur sans interface- 
digitalisée, elle vous permettra de recréer votre jeu préféré avec vos VOS 
U propres phrases et intonations. Synthesoft : encore du rêve !... 
transfert de __ Un véritable synthétiseur électronique avec votre clavier PROGRAMMES 
MEPHISTO (reproduction, enregistrement). Soundsoft : tou- NOUS 


cassette à disquette pour jours du rêve !.. Parole et musique, c'est 


les logiciels standards et sans fait, vous en êtes fier, mais les brui INTERESSENT 


entête. Tout est automatique, même la -tages ?.. Alors réveillez-vous, il 





relocation. Difficile de trouver tourne sur votre CPC. CONTACTEZ 


mieux !.…. CAL SEL non !... 
TELE CHE 7 NOUS 
Re LUE eL'EE Une revue 


vous aider dans tous vos transferts. a les mois, 
environ une LIRE de transferts. Déjà 5 numéros. 
Le numéro : + 7.50 F de port 


AMLUELTSSRIR interface pour sauvegarder rene . rt A 
tous vos programmes 5, rue du Tondu - 33000 Bordeaux 


600 F + 25 F de port. Plus besoin on BON DE COMMANDE > 


d'en parler. Univer- Prévoir 25F de port + 20F pour le contre- 
sellement connu sur remboursement 


AMSTRAD, le best et le must NOM : PRENOM : 
de la duplication de sauvegarde sur ADRESSE : 


CE AMSTRAD (copie, analyse, TL 'ioacerto commanbers oo 
transfert. Programmation | ne 


















.….). Vraiment 
sans égal, et c’est vous qui le dites, paramétrable de nos . ri 
les AMSTRADISTES... n'importe quelle Me PRES TR ere 
imprimante (et 


C2 vraiment toutes...) 


j LE CATALOGUE DE NOS SOFTS EST 
7 CSN CCC DISPONIBLE CHEZ VOTRE REVENDEUR 











s,encol.en ‘V° 


4240 DATA 12,284,48,-2,0,0,16,2,0,-2,0,0 
,112,2,0,-2,0,0,8,2,0,-2,0,0,56,2,0 

4250 DATA 3,204,74,0,4,158,0,0,-4 

4260 DATA 9,200,252,0,-4,57,0,0,4,0,-4,5 


2,0,0,4,9,-4,57,0,0,4 
4270 DATA 4,4,25,17,21,17,15,17,14,17,10 
,25,24,26,8,33,8, 40,8 
4280 DATA 9,182,48,2,0,0,16,-2,0,2,0,0,1 
12,-2,0,2,0,0,64, Devant,encol.dro 
ite 
4290 DATA 9,300,48,-2,0,0, 
112,2,0,-2,0,0,64,2,0 

4500 DATA 3,204,354,0,4,79,0,0,-—4 
4710 DATA 6,200,252,0,-4,57,0,0,4,0, 
6,0,0,4 
4320 DATA Z, 
,27,8,34,8 
4520 DATA 12,182,48,2,0, 


—2,0:° 


16,2,0,-2,0,0, 


-4,2 
Srsirimid7. 15,7, 10 Su 2a 


BE 


,.0,2,0,0, 
112,-2,0,2,0,0,56, 25.0 20:06 84 La; O: De 
vant gilet,encolure ronde 
4540 DATA 12,700,48,-2,0,0,16,2,0,-2,0,0 

Re —-2,0,0,56,2,0,—-2,0,0,8,2,0 
90 DATA 79,0,0,—-4 
4360 DATA 6,200,252,0,-4,57,0,0,4,0,-4,2 


6,0,0,4 
4370 DATA 
25, 24,27, 


APS. 17, 21.174 15,17, 114 17.40 
8,:4,8 


380 DATA 6,182,64,2,0,0,16,-2,0,2,0,0,1 
60,-2,0 
4390 DATA 6,280,64,-2,0,0,16,7,0,-2,0,0, 
160,7,0 
4400 DATA 3,200,52,0,4,160,0,0,-4 
4410 DATA 3,216,252,0,-4,128,0,0,4 
4420 DATA 2,2,34,17,70,17, M 8 


nm 
9; Pa Ô, O, 1 


4430 DATA 9,187,64,2,0,0,16,-— 
60,-2,0,7,0,0,16,-2,0 

4440 DATA 9,280, 64, -2 :0,0,16,2,0,-— 
160,2,0,-2,0,0,16,2,0 

4450 DATA 3,200,52,0,4,160,0,0,-—4 


La GO, 0, 


4460 DATA 3,216,768,0,-4,128,0,0,4 

4470 DATA 3,2,34, 17,20,17, 0, 17,9%:34,2%, 
34,7 

4480 DATA 6,210,48,2,0,0,16,-7,0,2,0,0,1 
20,-2,0 

4490 DATA 6,2358,48,-2,0,0,16,2,0,-2,0,0, 


120,2,0 
4500 DATA 
4510 DATA 3,2232,202,0, 


3,260,54,0,4,48,0,0,—4 
—4, 104,0,0,4 


4520 DATA 2,2,27,21,21,21,14,35,24,34,11 
4530 DATA 12,210,48,2,0,0,16, 2: 0,2,0,0, 


120,-2,0,2,0,0,52, 

4540 DATA 12,2758,48,-27 *0,0,16,2,0,— 
1120,2,0,-2,0, 0,52,2,0, —2,0,0,8,27,0 

4550 DATA Z,260,274,0,4,48,0,0,—4 

4560 DATA 3,232,254,0,-4,104,0,0,4 

4570 DATA 4,2,27,21,21,21,14,21,11,71,10 
523,24,54,8 

4580 DATA 9,210,48,2,0,0,16,-2,0,2,0,0,1 

20,-2,0,2,0,0,40,-2,0 

4590 DATA 9,258,48,-2,0,0,16,2,0,-2,0,0, 
120,2,0,-2,0,0,40,2,0 

4600 DATA 7,260, 24,0,4,48,0,0,—4 

4610 DATA =,2732, 240, 0,-4,104,0,0,4 


-2,0,2,0,0,8,-2,0 


2,0,0 


46 


4620 DATA 3,2,27,21,271,21,14,21,11,35,74 
,34,9 

4670 DATA 15,210,48,2,0,0,16, se O, 
120,-2,0,2,0,0,40,-2,0,2,0,0,26,-2,0,2,0 
,0,8,-2,0 

4640 DATA 15,258,48,-2,0,0,16,2,0,-2,0, 
,120,2,0,-2,0,0, 40,2,0,-2,0, 0,26,2,0, Le 
0,0,8,2,0 

4650 DATA 3,260, 
4660 DATA 6,232,270,0,-4,42,0, 
8,0,0,4 

4670 DATA SSL PT, Di; 
2t,9:35,24,29,7,558,7 


[e) 


34,0,4,48,0,0,-4 


0,4,0,-4,1 


21,21,14,21,12,21,10 


46880 DATA 6,210,108,2,0,0,16,- O0 
680,-2,0 
4690 DATA 6,258,108,-2,0,0,16,2,0,-2,0,0 
,60,2,0 


4700 DATA 
4710 DATA 3,732,202,0, 


3,256,94,0,4,56,0,0,-4 
-4,104,0,0,4 


4720 DATA 2,2,277,21,18,21,14,33,21,54,11 
4730 DATA 12,210,108,2,0,0,16,-2,0,2,0,0 
,60,-2,0,2,0,0,52,-2,0,2,0,0,8,-2,0 


4740 DATA 12,2:58,108,-2,0,0,16,2,0,-2,0, 
9,60,2,0,-2,0, 0,52,2,0, —2,0,0,8,2,0 
4750 DATA 5,256,94,0, $ 96,0,0,—-4 

4760 DATA 3,227, 254, 574,104,0,0,4 

4770 DATA 4,2,27,2i, ide ue 
523,21,%4,8 


4780 DATA 9,210,108,2,0,0,16,-2,0,27,0,0 


ss 


60,-2,0,2,0,0,40,-2,0 
4790 DATA 9,258,108,-2,0,0,16,2,0,-2,0,0 
100,2,0,-2,0,0,40,2,0 


4800 DATA 2,256,94,0,4,56,0,0,-4 
4810 DATA 3,222,240,0,-4,104,0,0,4 
4820 DATA 3,2,27,21,19,21,14,21,11,53,21 


34,9 

Lie | 

4830 DATA nn are 16,-2,0,2,0,0 
.69,-2,0,2,0,0,40,—-2,0,2,0,0,26,-2,0,2,0 
,9,8,-2,0 


él FA 3 (0-7. (0 
2,0,0,16,2,0,-2,0, 


x. CO, > RE ee 
2,0,0,26,2,0, Et} 


4840 DATA 15,258,108, 
0,60,7,0,-2,0,0,40,2,0, 
0,0,8,2,0 

4850 DATA 3,756,94,0,4,56,0,0,-4 
4860 DATA 6, 222,270, O4: 420, 03 A 0e 
8,0,0,4 

4870 DATA 5,3,27,21,18,271,14, 
21, 7:28,21,29, 7» 2947 

4880 DATA 3,182, 144,2,0,0,24 -2,0 
4890 DATA 3,384,144, ro 
4900 DATA 32200, 132,0, 4,166,0,0,-4 
4910 DATA no 
4920 DATA 1,2,35,17,15,35,18,25,12 
4930 DATA 3,182,144,2,0,0,24, 


—4,1 


PS US Po NN DE 


Nes 
-2,0 


2 
4940 DATA Z,284,144,-2,0,0,24,2,0 

4950 DATA 3,200, 122,0, 4,166,0,0,-—4 

4960 DATA 3,208,180,0,-4,150,0,0,4 

4970 DATA 1,2,35,17,15,25,18,25,12 

4980 DATA 6,234,112,2,0,0,16,-7,0,7,0,0, 
40,-2,0 

4990 DATA 6,232,112,-2,0,0,16,7,0,-2,0,0 
,40,2,0 

5000 DATA 3,252,100,0,4,64,0,0,-4 

5010 DATA 3,252,180,0,-4,64,0,0,4 


5020 DATA 2,2,21,25, 17,25,15,25,21,25,17@ 


INITIATION 





L'EDITEUR 


DE TURBO PASCAL 


Stéphane CLOIREC 


(SUITE) 








L'éditeur de Turbo-Pascal est un éditeur pleine page comparable en 
grande partie à celui du célèbre traitement de texte WORDSTAR. 


Après avoir créé un fichier de travail 
(Commande W du menu principal), vous 
tapez la commande E et vous voilà dans 
l'éditeur. 

En haut de l'écran, se trouve une ligne 
appelée ligne d'état qui contient différen- 
tes informations. 


photo 1 


— LINE et COL font bien sûr référence 
à la ligne et à la colonne où se trouve 
votre curseur. 

— INSERT vous indique que tous les 
caractères tapés au clavier vont être 
insérés dans le texte à l'endroit où se 


trouve le curseur. S'il existe des carac- 
tères situés à droite du curseur lorsque 
vous tapez quelque chose, ceux-ci seront 
déplacés vers la droite. 

La commande CTRL-V vous basculera en 
mode OVERWRITE qui, comme son nom 
l'indique, signifie que tout caractère tapé 
écrasera celui situé au-dessous du cur- 
seur. 


(Un nouvel appui sur CTRL-V vous fera 
revenir au mode INSERT). 

Testez dès maintenant les deux modes 
d'écriture et familiarisez-vous avec eux. 
Attention : Le mode INSERT doit être uti- 
lisé pour l'entrée du texte et le mode 





OVERWRITE ne doit être réservé qu'à la 
correction. 


— INDENT indique que 
indentation est en activité. 
Qu'est-ce que l'indentation automati- 
que ? C'est une facilité de l'éditeur qui 
permet d'améliorer la lisibilité des 
programmes. 

Tapez une ligne quelconque, puis ENTER 
(vous revenez alors au début de la ligne). 
Sautez ensuite quelques espaces, puis 
écrivez quelque chose et tapez ENTER. 
Vous remarquez alors que le curseur ne 
revient plus au début de la ligne, mais 
qu'il se trouve sous le premier caractère 
de votre ligne précédente : c'est ça, 
l'auto-indentation (voir photo 1). 

{Un nouvel appui sur ENTER vous fera 
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l'auto- 


: Jean-Luc AULNETTE 


Illustrations 














1 caractère 
vers le haut 
























1 caractère 
à gauche 


1 caractère 
vers le bas 


1 page 
vers le haut 


R 


1 mot 
à gauche 





Ta er. 
A — cr. F 
c 


1 page 
vers le bas 


curseur en 
haut de l'écran 


E 


extrême gauche 


__TermRLa 
de la ligne S—{i( TRL-O | D 


| 
X 


curseur en bas 
de l'écran 


revenir au début de la ligne si vous le 
désirez). 

La commande CTRL-Q-1 désactive ou 
réactive le mode auto-indent (pour taper 
CTRL-Q-\, il faut tout d'abord taper 
CTRL-Q puis relâcher le clavier quand 
CTRL-Q apparaît en haut de l'écran et 
ensuite, taper l). 


— A:NOMFICH. EXT indique le drive et 
le nom du fichier avec lequel vous 
travaillez. 


LE CURSEUR 


Nous allons maintenant voir le déplace- 
ment du curseur : il peut s'effectuer de 
deux manières différentes, soit en utili- 
sant les touches du clavier, soit en utili- 
sant le pavé de curseur. 

Les touches du clavier sont configurées 
comme le montre le tableau 1. 


Remarques : 

— La commande CTRL-Q-P ramène le 
curseur à sa dernière position. 

— La touche TAB déplace le curseur aux 
différentes positions de tabulations 
(celles-ci sont automatiquement fixées 
sous chaque mot de la ligne précédente). 
— Le pavé de curseur a été pré-configuré 
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1 caractère 
à droite 


1 mot 
à droite 


extrême droite 
de la ligne 


Tableau 1 


déroule vers 
le début du fichier 


déroule vers 
la fin du fichier 


début du fichier j 





fin du fichier 






de la manière suivante en plus du sim- 
ple déplacement du curseur : 
CTRL-Flèche droite : mot suivant 
CTRL-Flèche gauche : mot précédent 
CTRL-Flèche haut : une page vers le haut 
CTRI-Flèche bas : une page vers le bas 
SHIFT-Flèche droite : fin de ligne 
SHIFT-Flèche gauche : première colonnë 
COPY : passage INSERT-OVERWRITE 


La connaissance de base de l'éditeur, 
c'est bien sûr celle des déplacements du 
curseur dans le texte. Il est plus facile 
d'utiliser le pavé de curseur 
(mémorisation 

Wordstar ne seront pas perdus en utili- 
sant les touches du clavier. De plus, cer- 
taines commandes ne sont accessibles 
qu'à partir du clavier alphabétique : à 
vous de faire votre choix ! 


L'INSERTION ET LA SUPPRESSION 


L'insertion d'un caractère s'effectue 
grâce au mode INSERT (cf. ligne d'état). 
On n'insère pas de caractère en mode 
OVERWRITE. 

L'insertion d'une ligne est obtenue par la 
commande CTRL-N (le curseur ne se 
déplace pas). 

La suppression d'un caractère à gauche 


du curseur s'effectue grâce à la touche 
DEL. 

La suppression du caractère situé sous 
le curseur est effectuée par l'ordre CTRL- 
G, (Nous verrons plus tard comment 
modifier la configuration des commandes 
de l'éditeur pour remplacer CTRL-G par 
la touche CLR). 

La suppression d'une ligne est faite par 
CTRL-Y. 

La suppression de tous les caractères 
situés à droite du curseur jusqu'à la fin 
de la ligne est obtenue par la commande 
CTRL-Q-Y. 

La suppression du mot situé à droite du 
curseur s'effectue par CTRL-T (les signes 
de ponctuations ou arythmétiques sont 
considérés comme des séparateurs de 
mots). 

La commande CTRL-Q-L permet d'annu- 
ler toutes les modifications d'une ligne 
tant que le curseur reste sur celle-ci, 
sauf, bien sûr, si la ligne a été supprimée 
totalement par CTRL-Y. 

Les insertions et les suppressions sont 
parmi les options les plus utilisées de 
l'éditeur, aussi n'est-il pas négligeable de 
s'entraîner à leur utilisation et de bien 
assimiler leur fonctionnement avant de 
poursuivre. 


LES COMMANDES DE BLOC 


Pour illustrer la suite de cet article, je 
vous invite à taper le petit texte qui suit, 
en ayant au préalable défini un nouveau 
fichier de travail pour obtenir une page 
neuve. 
— sortez de l'éditeur par CTRL-K-D 
— tapez W pour entrer le nouveau nom 
de fichier (répondez Non à la demande 
de sauvegarde) 
— tapez E pour ré-entrer dans l'éditeur 
— introduisez le texte suivant : 
Tout le monde savait que l'équipe de 
ALAN SUGAR nous préparait un compa- 
tible IBM PC à hautes performances et 
à un prix révolutionnaire. 
Mais le secret aura été, comme d’habi- 
tude, très bien gardé et il aura fallu la pré- 
sentation officielle, qui a eu lieu à Lon- 
dres le 1e" septembre, pour découvrir la 
merveille. 
Le slogan percutant qui l'accompagnait : 
‘compatible avec qui vous savez, mais 
à un prix que nous seuls connaissons". 
CPC-octobre 1986 
Un bloc représente toute quantité de 
texte depuis un caractère jusqu'à plu- 
sieurs pages. Il est possible, grâce à l'édi- 
teur, de bouger, copier, supprimer ou 
même d'écrire dans un fichier-disquette 
un bloc quelconque. 
La première chose à faire, si on veut 
manipuler un bloc, est de le définir. On 
définit un bloc simplement en délimitant 
son début et sa fin. Pour cela, on dispose 
de trois commandes : 
— CTRL-K-B marque le début du bloc 
— CTRL-K-K marque la fin du bloc 
— CTRL-K-T marque un mot comme 
bloc : 
(On place le curseur à l’intérieur du mot 
à marquer). 





( E4 


Si on désire, par exemple, placer le slo- 
gan entre les deux premiers paragraphes, 
on procède de la manière suivante : 

— On place le curseur sur le ‘’L’’ et on 
fait CTRL-K-B. 

— On le met ensuite sur l'espace suivant 
le «''» et on fait CTRL-K-K. Le bloc ainsi 
marqué apparaît alors en vidéo inversée 
(voir photo 2). 

La commande permettant de déplacer un 
bloc est CTRL-K-V. On se place donc 
entre les deux paragraphes et on tape 
l'ordre : le bloc est transféré ! Le bloc 
marqué se trouve maintenant au milieu 
du texte comme le montre la photo 3. 


Les autres commandes de bloc sont les 
suivantes : 
— CTRL-K-H : 
Permet de montrer où non un bloc mar- 
qué (le bloc passe de vidéo inverse en 
normal et vice-versa). 
Attention : lorsque le bloc marqué n'est 
pas visible à l'écran (donc, quand il est 
en vidéo normale), il vous sera impossi- 
ble d'effectuer des commandes de blocs. 
Il vous faudra revenir en vidéo inverse 
pour pouvoir les utiliser à nouveau. 
— CTRL-K:-C : 
Effectue une copie du bloc à l'emplace- 
ment du curseur, sans pour autant effa- 
cer l'original. Sur notre exemple, si vous 
positionnez le curseur à la fin du texte 
et que vous tapez cette commande, vous 
vous retrouvez avec deux slogans : un 
au milieu et un à la fin. Vous pouvez 
remarquer que le bloc marqué se trouve 
de nouveau à la fin du texte : c'est le bloc 
qui vient d'être affiché qui sert de repère 
(voir photo 4). 
— CTRL-K-Y : 
Efface le bloc marqué (vous ne pourrez 
plus le récupérer : prudence !). En tapant 
cette commande, vous allez effacer le 
slogan de la fin de texte. Vous n'avez 
alors plus de bloc marqué dans l'article. 
— CTRL-K-W : 
Ecrit le bloc dans un fichier sur la dis- 
quette. On vous demandera le nom du 
fichier (si vous donnez un nom existant 
déjà sur la disquette, le fichier précédent 
sera effacé et remplacé par le bloc). Le 
nom donné doit être un standard CP/M 
de la forme NOMFICH.EXT (l'extension 
.PAS est rajoutée si vous n'en donnez 
pas. 
Reprenons notre exemple : il nous faut 
tout d'abord re-définir un bloc. Prenons, 
pour changer, le premier paragraphe (du 
‘’T'' juqu'au ‘’."" inclus). Après avoir tapé 
CTRL-K-W, l'ordinateur affiche : 
‘Write block to file: ”” 
Rentrez alors le nom que:vous voulez 
attribuer à ce bloc (par exemple BLOC1). 
Vous possédez maintenant sur votre dis- 
quette une copie du premier paragraphe 


du texte. 
0.00 
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Les avantages d’une telle option sont for- 
midables : il vous est en effet possible 
de créer ainsi une véritable bibliothèque 
des routines qui vous servent le plus sou- 
vent, comme une gestion du clavier, un 
générateur de menu, etc. Vous éviterez 
la corvée d'avoir à réécrire ce que vous 
avez déjà fait ! Il vous sera ainsi possi- 
ble d'écrire beaucoup plus vite vos pro- 
grammes, et un long programme se 
créera plus facilement. 

— CTRL-K-R : 

Lit sur la disquette le fichier dont vous 
avez introduit le nom (standard), le fichier 


sera affiché dans le texte comme un bloc 
marqué. Cette commande servira, entre 
autre, à utiliser votre bibliothèque de 
routines. 

Il ne peut y avoir qu'un seul bloc marqué 
à la fois dans le texte. Aussi, le bloc 
chargé à partir de la disquette constituera 
le nouveau bloc marqué. Si vous avez 
précédemment défini un bloc, il sera 
laissé intact par le chargement mais rede- 
viendra ‘’normal'. 

Vous voulez, par exemple, récupérer le 
premier paragraphe que vous avez sauvé 
pour le copier à la fin. Vous positionnez 
tout d'abord votre curseur à l'endroit 
voulu, puis tapez la commande. L'ordi- 
nateur affiche : 


‘’Read block from file:"” 


Tapez alors le nom du bloc sauvé (pour 
nous, BLOC1). Le reste se fait tout seul ! 
Remarque : || est possible d'interrompre 
chaque option de l'éditeur, si l'option en 
question fait une pause pour vous 
demander de rentrer quelque chose dans 
l'ordinateur (par exemple, le nom dans 
la commande de sauvegarde d’un bloc). 
Il vous suffit, pour l'interrompre, de taper 
la séquence CTRL-U pendant la pause. 
L'ordinateur afficher alors : 


‘’INTERRUPTED. Press <ESC> ‘ 


Pressez la touche Escape, et la com- 
mande est annulée. 


LA RECHERCHE 
ET LE REMPLACEMENT 


L'éditeur vous permet de rechercher 
n'importe quelle chaîne de caractères 
(jusqu'à concurrence de 30) dans votre 
programme, même les caractères de 
contrôle. 

Tapez CTRL-Q-F : Turbo affiche ‘‘Find: ”’ 
Rentrez alors la chaîne que vous voulez 
trouver. Si vous voulez entrer des carac- 
tères de contrôle, il faut taper tout 
d'abord CTRL-P, puis CTRL + le carac- 
tère que vous voulez mettre. On vous 
demande ensuite de donner des options 
de recherche (tapez ENTER si vous n'en 
donnez pas). 
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-Les différentes options sont : 


— B : recherche en arrière de la position 
du curseur vers le début du texte. 

— U : assimile majuscules et minuscules. 
— n: recherche la n ième occurence de 
la chaîne donnée. 

— W': ne recherche que des mots 
entiers. Si la chaîne est incluse dans une 
autre, elle ne sera pas trouvée. 


Remarques : la recherche s'effectue tou- 
jours depuis la position du curseur vers 
















la fin du texte, sauf si vous avez 
demandé l'option B. 

La recherche peut être répétée simple- 
ment en tapant CTRL-L. 

La chaîne précédemment trouvée peut 
être rappelée par CTRL-F. 

Le caractère de contrôle CTRL-A permet 
de remplacer n'importe quelle lettre dans 
la chaîne à rechercher. 

Si vous voulez entrer plusieurs options 
de recherche, il suffit de les taper à la 
suite les unes des autres, et de finir par 
ENTER. 


Exemple : 

Vous voulez trouver les ‘’nous’’ et les 
‘vous’ du texte de démonstration. 
Vous tapez CTRL-Q-F et la séquence sui- 
vante (sans les espaces ) : 


‘’CTRL-P CTRL-A ous 


Le code CTRL-P CTRL-A remplace le ‘‘v'" 
et le ‘‘n’”’ à la fois dans la chaîne. 
‘‘’ous’” constitue le reste de la chaîne. 
Si votre curseur se trouve au début du 
texte, entrez les options ‘‘UW/”' et si vous 
êtes à la fin du texte, rentrez alors 
“BUW”'. (voir plus haut pour la signifi- 
cation). 

L'ordinateur doit alors trouver la première 
occurence de la chaîne recherchée. Si 
vous voulez poursuivre la recherche dans 
la suite du texte, il suffit de taper CTRL- 


Let c'est reparti ! 


Si l'ordinateur ne trouve pas votre 
chaîne, il affichera le message : 


‘’Search string not found. 
Press <ESC>" 


Vous pouvez aussi effectuer une recher- 
che et simultanément un remplacement 
de la chaîne cherchée par une autre. La 
commande correspondante est CTRL-Q- 
A. 

La méthode à suivre est la même que 
précédemment. || suffit juste de donner 
en plus la chaîne qui remplacera dans le 
texte celle que vous cherchez. 

Les options de recherche et remplace- 
ment sont les mêmes que celles de 
recherche simple, avec en plus, deux 
possibilités et un petit changement : 
— G : recherche et remplace dans tout 
le texte, quelle que soit la position du cur- 
seur. 

— N : remplace sans confirmation .(si 


vous ne donnez pas cette option, l'ordi- 
nateur vous demandera de confirmer 
chaque remplacement). 

— n: représente ici le nombre d'occu- 
rences à rechercher et non plus la n ième. 


Exemple : 

Vous voulez remplacer IBM par BIM (une 
nouvelle marque !). Vous tapez CTRL-Q- 
À, tapez IBM à la question ‘‘Find: ‘’ et 
BIM à la question ‘‘’Replace with: ‘’. 
Pour les options, répondez GU. 
L'ordinateur doit trouver la chaîne et 
vous demander confirmation du rempla- 
cement. 

Ça se fait presque tout seul ! 


Ces commandes de l'éditeur peuvent 
paraître un peu complexes au début, 
mais vous vous apercevrez vite qu'avec 
un peu de pratique, on acquiert rapide- 
ment les automatismes de l'éditeur. 
Entraînez-vous maintenant à les utiliser. 
Il est rapidement indispensable de bien 
savoir les maîtriser quand on commence 
à programmer sous Turbo-Pascal. 
Habituez-vous surtout aux différents 
mouvements du curseur, aux insertions 
et aux suppressions. 


Le mois prochain, nous verrons l'instal- 
lation sous CP/M Plus et comment utili- 
ser les options de compilation à travers 
différents exemples@ 
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Nous avons introduit, dans CPC n° 14, la notion de test du clavier, 
ce mois-ci nous allons approfondir cette étude afin de vous permet- 


tre d'accélérer vos tests clavier. 


1} TECHNOLOGIE 
Pour étudier la routine de test, il est indispensable d'aborder 
les principes de scrutation de clavier. Regardons la figure n° 1 










FE Xovo: un à 














Le principe est le suivant : 

On met XO du circuit B au niveau 1, si aucune touche n'est 
enfoncée, aucune information n'est disponible sur Y, sinon 
une des lignes YŸ est à un. 

On met ensuite X1 à 1 et on relit Y et etc jusqu'à avoir scruté 
tout le clavier. 

Sur les CPC, c'est à peu de choses près, cette méthode qui 
a été employée. Le circuit A est l'AY-3-8912 relié au port À 
du 8255 et le circuit B est un convertisseur BCD/décimal relié 
au port C du 8255. Il faut savoir que le test du clavier est 
déclenché par une interruption, il est donc impossible d'utili- 
ser la routine de la ROM si l’on a auparavant inhibé les inter- 
ruptions par un DI (ce qui explique que certains programmes 
ne puissent être stoppés par l'action simultanée de CTRL, 
shift, ESC). 


11} LES ROUTINES EXISTANTES 
La routine de test du clavier est placée en 846 hexa de la ROM 


système. Le listing 1 commente abondamment le début de 
cette routine. 


En réalité la fin de la machine de la ROM est un peu diffé- 
rente de celle-ci, mais le principe reste le même. 


APPLICATION 

La première application que nous citerons est celle de l'arti- 
cle de Eddy DUTERTRE dans CPC n° 14, Amstrad et Mini- 
tel. Dans cette routine Eddy DUTERTRE ne teste que la tou- 
che shift (#DF) ce qui lui permet de gagner du temps pour 
l'attente de caractère série. 

Le second exemple que nous allons vous donner concerne 
le joystick, pourquoi tester tout le clavier (mais oui le joys- 
tick est considéré comme une touche du clavier sur l’Ams- 
trad), alors que l'on se sert d'un logiciel de jeu. 

Le listing 2 vous donne une routine permettant de ne tester 
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(RE TER 


(ROLL OT CE 


Ld BC,F40E ; le générateur de sons est relié au port B 
du 8255 (F4). 

Out (C),C ; on sélectionne le registre 14(0E) du généra- 
teur de sons. 

Ld B,F6 ; sélection du port C du 8255. 

In À,(C) ; et lecture. 

And # 30 ; la seule information à conserver est l'état du 
moteur du lecteur de cassette et l’état de l'écriture des 
données sur cassettes, (le Port C gère également l'inter- 
face cassette). 

Ld C,A ; conserve les infos dans C. 

OR#CO ; met les bits 6 et 7 du Port C à 1. 

out (C),A ; verrouille la lecture du registre 14 de 
l'AY-3-8912. 

Out (C),C ; jusqu'à une nouvelle action. 

Inc B; B = #F7, port de contrôle du 8255. 

Ld À, #92 

Out (C), À ; Port A et Port B en entrée. 

Push BC ; sauvegarde sur la pile. 

Set 6,C ; mise à 1 du bit 6 de C. 

Ligne suivante : Ld B,#F6; Port C: 
Out (C),C ; envoie XO = 1 et ordre de lecture du registre 
14 de l'AY-3-8912. 

Ld B,#F4 ; Port A. 

In À,(C) ; Quelle est la valeur placée dans le registre 14 ? 
Ld (HL),A ; à l'adresse HL. 

inc C ; ligne suivante (X1). 

Ld A,C 

CP OA ; les dix lignes ont-elles été lues ? 

JR NZ, ligne suivante ; si non, retourner au test. 

Ret ; si oui, retour @ 





que le joystick. Vous verrez donc une flèche se déplacer sur 
l'écran en fonction de la position de la manette. Il est évident 
que vos applications seront plus fines, notamment déplacer 
une figure (ce que nous verrons dans un prochain numéro de 
CPC). 


ROUTINE EXCES DE VITESSE (!) 

10 ORG 22000 ; 
20 Call #BC14 ; effacement de l'écran 
30 Ld HL,#B726 ; HL = Position ligne 
40 Ld DE,#B727 ; 

DE = Position colonne 
50 Ld A,#01 ; 
60 Ld (HL),A ; Nouvelle position ligne 
70 Ld (DE),A ; Nouvelle position colonne 
80 RETOUR : DI ; plus d'interruption 
90 Ld BC,#F40E ; 

100 Out (C),C ; 

110 Ld B,#F6 ; 

120 Ld C,#CO:; 

130 XOR A ; 

140 Out (C),C ; 

150 Out (C),A ; 

160 inc B; 

170 Ld A,#92; 

180 Out (C),A ; 

190 Ld C,#49 

200 Ld B,#F6 

210 Out (C),C 

220 Ld B,#F4 

230 In A,(c) 

240 Bit O,A ; 

250 JP Z, HAUT ; Bit O à O — Haut 

260 Bit 1,A ; 

270 JP Z, BAS ; 

Bit 1 à 1 — Bas 

280 Bit 2,A ; 

290 JP Z, Gauche ; 

300 Bit 3,A ; 


Initialisations 


test clavier 


Détermine 
la position 
du joystick 
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310 JP Z, Droite ; 
320 Bit 4,A ; Feu — Fin du prg. 

330 JP Z, Fin; 

340 RET1 : XOR A 

350 Call #BB5A 

360 JP Retour 

370 Haut ; Ld A,(HL) 

380 CP #01 ; Ligne 1 ? 

390 JR Z, HF ; Oui alors retour au test 
400 Call effas ; sinon effacer la position précédente 
410 DEC (HL) ; Ligne = Ligne - 1 

420 Ld A,#F1 ; F1 = flèche bas ‘‘l”” 

430 Call #BB5A ; afficher à la nouvelle position 
440 HF : JP RET1 ; retour au test clavier 

450 BAS : Ld À, (HL) 

460 CP 24 ; 24e ligne ? 

470 JR Z,BF ; oui alors retour test 

480 Call effas ; sinon effacer position précédente 
490 inc (HL) ; Ligne = Ligne + 1 
500 Ld A,#F1 ; À = ‘| 

510 Call #BB5A ; affichage 

520 BF ; JP RETI1 ; et retour 

530 Gauche : 

Ld À, (DE) 

540 CP 1 ; 1'e colonne ? 

550 JR Z, GF ; oui alors retour test 
560 Call effas ; sinon effacer 

570 EX DE, HL ; 
580 DEC (HL) ; 
590 EX DE, HL ; 
600 Ld A,#F1; À = ‘| 
610 CALL # BB5A ; affichage 
620 GF : JP RET1 ; retour 








HAUT 










BAS 












GAUCHE 









Colonne = colonne - 1 





















630 DROITE : Ld À, (DE) DROITE 
640 CP 39 ; colonne 39 ? 

650 JR Z,DF ; oui alors retour test 

660 Call effas ; sinon effacer 

670 EX DE,HL ; 

680 inc (HL) ; Colonne = colonne + 1 

690 EX DE,HL ; 

700 Ld A,#F1; À = “|” 

710 Call # BB5A ; affichage 

720 DF : JP RET1 ; et retour 

730 EFFAS : EX DE, HL ; 

HL = colonnes EFFACEMENT 
740 DEC (HD) ; 

colonne = colonne - 1 CURSEUR 






750 Ld A,#20 ; À = espace 
760 Call #BB5A ; effacement précédente position 
770 DEC (HL) ; restauration ancienne position 
780 EX DE, HL ; DE = colonne, HL = ligne 
790 Ret 

800 Fin : El; 

interruptions autorisées 

810 Ret ; et retour au basic@ 







Cette routine fonctionne sur tous les CPC. Il est à noter qu'une 
erreur s’est glissée dans le schéma de l'AMSTRAD. en effet 
le bouton FEU de la manette 1 est sur le bit 4 du registre 14 
de AY8912, et non sur le bit 5. 


LA ROUTINE ROM 

Cette routine accessible en BB24 vous fournit : 

— dans le registre H, l'état du joystick O 

— dans le registre L, l’état du joystick 1. 

Ces valeurs sont identiques à celle de la fonction basic 
JOY(X). 


CONCLUSION 

Nous avons donné dans cet article 2 exemples d'applications 
de ces routines de test. De nombreuses autres routines peu- 
vent être écrites, et notamment il est à remarquer que le regis- 
tre 14 de l'AY8912 peut être utilisé en sortie. De là à penser 
qu'on peut créer une interface série-soft.. A suivre. 





LA GESTION 
DES REPONSES 


M. ARCHAMBAULT 


choix ou des valeurs à l’utilisateur : menus, options, valeurs 


R:: sont les programmes qui ne demandent pas des 


numériques, mots, etc. Pour le programmeur, il faut que ces 
questions soient claires, mais il faut aussi vérifier la validité des 
réponses recues. En effet, accepter une réponse idiote pourrait pro- 


voquer un plantage soit immédiat, soit 


ifféré ; et l’utilisateur ne 


comprendrait pas pourquoi il serait pige de tout recommencer 


après un nouveau RUN... Autrement dit il 


aut simultanémant eg A 
e 


menter la sécurité et le confort d'utilisation. Certes cela allonge 
listing, mais c’est ce qui fait la différence entre les programmes 
« classe pro » et « bricolo-bancal ». 


QUELQUES REGLES GENERALES 

1. La question et le curseur qui attend 
la réponse doivent être sur la même 
ligne. 

2. Lorsque le programme refuse une 
réponse il doit le signaler par un bip 
sonore, puis remettre le curseur au point 
de départ, et de préférence avec efface- 
ment de la réponse erronée. 

3. Pour rendre la question plus claire on 
peut la « légender », l'expliquer, la com- 
plèter, par une ligne située au-dessus ou 
au-dessous de la ligne-question ; ou 
encore dans la ligne-question mais entre 
parenthèses. Exemple : ‘Voulez-vous les 
instructions (O/N)''. 

4. Le programme doit accepter les répon- 
ses données en lettres minuscules et 
majuscules (usage de UPPERS). 

5. Si une question ne demande l'entrée 
que d'UN SEUL CARACTERE, l'opéra- 
teur ne doit pas avoir à valider sa réponse 
par la touche ENTER. Autrement dit on 
n'utilise pas INPUT mais INKEY$. 

6. Si les questions sont nombreuses pré- 
voir une « clause de rattrapage », car 
l'opérateur a pu commettre une étourde- 
rie. Exemple : ‘Vous avez choisi :” 
(liste de ses réponses) 

‘Est-ce correct ? (O/N)"” 

Ou encore prévoir pour chacune des 
questions une option Q (comme quitter), 
qui ramènera à la question précédente. 
7. Prévoir toutes les « bêtises » qui pour- 
raient être entrées en réponses. 


Ce dernier point est celui qui prend le 
plus de place dans le listing d'un logiciel 
digne de ce nom. Rappelez-vous que la 
qualité première d'un logiciel est d'être 
IMPLANTABLE. Cela vous surprend ? 
Conduiriez-vous une voiture sans une 
roue de secours dans le coffre, même si 
vous n'avez jamais été victime d’une 
crevaison ? 


LES VARIANTES 

DE LA COMMANDE INPUT 

Tout d'abord une bonne nouvelle : Le 
BASIC de l'AMSTRAD CPC, contraire- 
ment à ses concurrents, accepte les 
commandes INPUT en « mode direct » 
(= non programmé), ce qui est très pra- 
tique pour des essais de syntaxes. 


INPUT a plusieurs syntaxes possibles. 
Nous considèrerons que l'écriture NOR- 
MALE est INPUT ‘’NOM ‘’,A$. 
remarquez la virgule avant le nom de la 
variable et l'espace avant le second guil- 
lemet. La virgule évite le point d'interro- 
gation que nous aurions avec 
INPUT'NOM'";A$ ou PRINT''NOM'';: 
INPUT A$ 

En revanche cette virgule va faire coller 
le curseur à la chaîne entre guillemet, 
c'est disgracieux ; c'est pourquoi l'on 
met un blanc avant le second guillemet. 
Avec le point virgule il faudrait également 
cet espace, car le point d'interrogation 
va être câblé à la chaîne ; mais il ÿ aura 
un blanc automatique entre ce point d'in- 
terrogation et le curseur. 

Une présentation plus ‘propre’ sera 
INPUT''NOM:'"",AS$ ‘ 
Vous pouvez, pardon vous devez, posi- 
tionner INPUT à la suite d'un LOCATE. 
Exemple 

640 LOCATE 15,8:INPUT''NOM:'"",A$ 
Avantage : Si la réponse n'est pas vala- 
ble on programme THEN PRINT 
CHR$(7):GOTO 640 

Le PRINT CHR$(7) étant le bip sonore. 


LES ENTREES MULTIPLES 

C'est une possibilité que l’auteur décon- 
seille vivement : Exemple 

INPUT''Nom, Prénom, Age:"",N$,P$,AG 
L'utilisateur devra alors entrer ces trois 
variables à la suite en les séparant par 
des virgules, avant de presser ENTER. 
Exemple de réponse : 
DURAND,PAUL,28 


Les risques d'erreurs sont trop impor- 
tants. || suffirait que l'utilisateur oublie 
une virgule, omette une variable où en 
mette une en trop, pour avoir droit au 
message « ? Redo from start », signifiant 
‘‘’recommencez'’. Et votre belle page 
d'écran est très abimée. Vous ne pour- 
rez même pas vous protéger en program- 
mant un ON ERROR GOTO (voir CPC 
n° 9 page 14), car il n'y a pas de ERR 
(puisque ce n'est pas un vrai plantage). 
Même en évitant de programmer ces 
INPUT multiples, il n'empêche que cette 
possibilité de syntaxe risque de nous 
jouer de vilains tours : 


LES PIEGES DE LA COMMANDE INPUT 
Au lieu d'écrire INPUT''Prénom:'',P$ 
supposons que l'on ait déjà défini le 
« libellé » par LGS$'‘Prénom:"’. Ce serait 
une erreur de programmer INPUT LGS$,P$ 
car cet INPUT attend alors DEUX varia- 
bles, LG$ et P$ ! 11 faudrait programmer. 
PRINT LG$;:INPUT"""",P$ 

Remarquez ce double guillemets (= 
chaîne vide), afin que cet INPUT accepte 
la virgule qui supprimera le point 
d'interrogation. 


Autre cas avec INPUT ‘’Longueur:"",L si 
l'utilisateur entre une virgule au lieu du 
point décimal (= entrée d'une variable 
en trop). Même « ?Redo from start » si 
on entre des lettres alors que cet INPUT 
attend un nombre. Même chose si l'or- 
dinateur attend une chaîne, mais si la 
chaîne-réponse contient une virgule. 
Pour ce dernier risque la parade est très 
simple, il suffit de remplacer INPUT par 
la commande LINE INPUT qui elle ‘‘gobe 
tout" ; les virgules, les espaces de début 
et de fin et même les guillemets ! (mais 
ces derniers sont parfois dangereux par 
la suite). 

Pour vous en convaincre essayez ceci 
10 LINE INPUT ''message:'",M$ 

20 PRINT M$ 

30 PRINT LEN(M$) 

40 GOTO 10 

Et entrez vraiment n'importe quoi. 
LINE INPUT n'accepterait pas des 
entrées multiples du genre LINE INPUT 
‘’messages'',M$,N$. 


LES ENTREES DE NOMBRES 

Grande règle d'or : On ne demande 
jamais une variable numérique à la suite 
d'un INPUT : Risque du « Redo from 
start ». On demande le nombre sous 
forme de variable chaîne, puis on traite 
par VAL. 

640 LOCATE 15,10:INPUT''PRIX:",PR$ 
650 PR=VAL(PRS) 

660 IF PR=O AND PR$ < > ‘‘'O''THEN 
PRINT CHR$(7);: GOTO 640 


Si vous avez tapé des lettres 
VAL(PR$)=0, mais le nombre zéro est 
accepté. S'il y a une virgule à la place du 
point décimal seule la partie entière sera 
conservée (un demi-mal...). 

Cette ligne 660 n'est pas infaillible ; pour 
faire vraiment de l'implantable on fait 
appel à un sous-programme qui lui va 
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faire de nombreux contrôles. (Sous- 
programme utilitaire du listing 1 à rechar- 
ger par MERGE ‘'SECINPUT"'). 





LISTING 1 
320060 
52010 
52020 FE=0: 


RECOIT X# : 


932040 IF 
m'en") 
EN 52069 

92069 ELSE 52070 


02070 RETURN@ 


Utilisation : 


X#: GOSUR ‘52000 


où 


X#:IF X#$="" THEN 640 


640 SUITE ... 


LISTING 2 


O/N) " 


WEND 
190 IF R$="0" 


50820 
50050 
30049 
30050 
: CHR$ (245) ; CHR# (207) 


AR 
50070 RETURN@ 





SECURITE INPUT NOMBRE 
RENVOIE X & 
FLAG D'ERREUR 
52050 IF INSTR(X#,",") OR INSTR(X#,"#") 
OR INSTR(X#,"/") OR X+="" 
(LEFTE(X#,1)="-" OR LEFT#H(X#,1) 
AND VAL(RIGHT#E(X#S,LEN(X#)—-1))=0 TH 
2058 X=VAL(X#H):1IF X=@ AND X#<5"0" THEN 


52060 FE=I1:FRINT CHR#(7) ; 


620 LOCATE 15,12:LINE INPUT 


620 IF FE THEN 620 ELSE NE=X 


620 LOCATE 15,12:LINE INPUT 


630 GOSUE S2000:1IF FE THEN 620 ELSE 


178 LOCATE 10,14: PRINT" 
18Q R$="":WHILE R#$="":R#=UPPERS (INKEY#) : 


THEN GOSUB 20000 ELSE IF R 
F<5°N" THEN PRINT CHR#(7);:GOTO 180@ 


LISTING 3 
0008 REPONSE À UN MENU 
30010 TEX#F=UPPERE(TEXE#) :LT=LEN(TEX#) 


LOCATE 15-LT,24: FRINT'"Reponse ("; 
FOR I=1 TO LT-1 

PRINT MID#(TEX#,1,1):", 
PRINT RIGHTE(TEX#,1)3;")";CHR#(154) 


50060 RE="":WHILE R$="":R#=INKEY#: WEND 
20070 R$=UPPERS (R#) : K=INSTR(TEXS,R#) 
50080 IF K=Q THEN PRINT CHR#(7) ;:GOTO 50 


Dans ce court module on vérifie l’ab- 
sence de virgule ou d'opérateurs tels que 
* et /. D'autre part si la valeur entrée 


FE 


THEN 52060 





"NOMRRE 


"NOMBRE 


INSTRUCTIONS ? ( | 


": 2: NEXT 
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débute par les signes moins ou plus, on 
s'assure que ce qui suit correspond bien 
à une valeur numérique. 

L'emploi de cette routine est très simple : 
chaque entrée de nombre est faite sous 
forme d'un INPUT X$, puis GOSUB 
52000. Si le X$ n'est pas correct il en 
revient un flag d'erreur FE =1 ; s'il est 
correct la variable désirée prend la valeur 
de X. Le second exemple autorise un 
"ENTER à vide”. 


L'EFFACEMENT 

DES REPONSES REFUSEES 

Ré-écrire sur des caractères erronés n’est 
pas très esthétique, voire peu rassurant 
pour un utilisateur ne connaissant pas le 
BASIC. Il est donc souhaitable qu'en plus 
du bip sonore la mauvaise réponse dis- 
paraisse à droite du curseur. 

Le remède le plus radical est d'interca- 
ler après le LOCATE un PRINT 
CHR$(18); (n'oubliez pas le point- 
virgule !) qui efface tout ce qui est à 
droite du curseur : 


620 LOCATE 15,12: PRINT CHRS(18):: 
LINE INPUT ‘’Nombre:'’,X$ 


Dans le cas, assez rare, où l'effacement 
jusqu'à la droite de l'écran serait gênant, 
il faudrait effacer la mauvaise réponse 
par une chaîne de blancs. 

IF FE THEN LOCATE 24,12:PRINT 
SPACES$(LEN(XS)) 


LES ENTREES PAR INKEY$ 

INKEY$ renvoie le dernier caractère tapé 
au clavier. C'est très fugitif, il faut donc 
lire INKEYS$ dans une boucle. On l'utilise 
pour des réponses mono-caractère, donc 
sans valider par la touche ENTER. Voir 
listing 2. 


La boucle de la ligne 180 tourne tant 
qu'aucune touche n'est pressée. Toute 
lettre est mise en majuscule par UPPERS. 
La ligne 190 refuse toute réponse autre 
que O ou N. 


Ici c'était facile puisqu'il n'y avait que 
deux réponses possibles. Voyons à pré- 
sent le cas général sous forme d'un sous- 
programme utilitaire (listing 3). Les 
« anciens ». de notre revue le connais- 
sant bien puisque l'auteur l'utilise dans 
la quasi totalité de ses programmes (et 
il n'est pas le seul...). 


Avant de faire appel à ce module il faut 
d’abord définir une chaîne TEXS$ qui ras- 
semble les INITIALES des diverses 
options. C'est tout. 

Exemple : On propose le menu : Saisir, 
charger, enregistrer, modifier, trier, impri- 
mer et quitter. 

TEX$ ='"SCEMTIQ'':GOSUB 50000 


Ce module fait beaucoup de choses : 
Tout d'abord il écrit en bas de l'écran, 
avec auto centrage. 

Réponse (S,C,E,M,T,I,Q) 

suivi d’un ‘‘curseur fictif”, CHRS$(207). 
Ensuite il vérifie que la réponse est bien 
dans TEX$ (sinon bip et attente).,Enfin 
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LISTING 4 


1008 ‘ MENU (demo) 

1918 ‘ pour 16 options maximum {NOPT) 
1020 DATA SAISIR,CHARGER,ENREGISTRER, MOD 
IFIER,TRIER, IMPRIMER, QUITTER 

18:80 RESTORE 10280: NOPT=7:TIM#="D E M 0 
de ME N U":GOSUE 49000 


49088 ‘ AFFICHAGE MENU 

49010 ‘ NOPT=Nombre d'Options: TIM#=TITRE 
du MENU 

49020 CLS:FEN S:LOCATE (4G-LEN(TIM#))/2, 
2:PRINT TIM#:FEN 1 

49050 TEX#="":FOR J=1 TO NOPT 

49040 READ OPT£:TEX#=TEX#+LEFTS(OPT#, 1) 
49050 LOCATE 14,J#?2+12-NOPFT:PRINT LEFT#( 
OPT#,1)5;" — "SOPTE 

4906@ NEXT 

4907@ PEN 2:GO0SUB SOG00:PEN 1 

49080 RETURN@ 


M E NU 


— SAISIR 

— CHARGER 

— ENREGISTRER 
MODIFIER 

— TRIER 

— IMPRIMER 

— QUITTER 


mm Ô 
| 





il renvoie la place K de la réponse dans 
TEXS$. Ainsi si la réponse est m,K=4. 
Après le GOSUB 50000 il ne reste plus 
qu'à programmer 

ON K GOSUB 2000,3000,4000, etc. 
Remarquez que l’on peut aussi utiliser ce 
précieux sous-programme pour notre 
premier exemple : 

170 LOCATE 10,14:PRINT 
‘‘Instructions ? (O/N}" 

180 TEX$ =''ON"' : GOSUB 

50060:IF K=1 THEN GOSUB 2000 


L'AFFICHAGE D'UN MENU 

Quel travail fastidieux tous ces LOCATE 
pour chacune des options, et le tout bien 
centré ! Plus maintenant. Deux lignes 
seulement avant de faire un GOSUB 
49000, çà vous plaît ? (Voir listing 4). 
Les libellés des options sont entrés dans 
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une ligne de DATA. {ligne 1020). On les 
compte, c'est la variable NOPT. On choi- 
sit un titre TIM$ pour ce menu (faculta- 
tif), un prudent RESTORE sur la ligne des 
DATA, GOSUB 49000, et c'est fini. 
Ce mini sous-programme {listing 5) se 
charge absolument de tout : Il affiche le 
titre avec centrage, écrit et légende les 
options avec un tiret séparateur, cons- 
truit seul le TEXS$ et lance le GOSUB 
50000 précédent. Mieux, le bloc des 
options (écrites une ligne sur deux) est 
auto centré haut-bas. Voir notre ‘‘hard 
copy'’ d'écran. 


Il va sans dire que ce module ira sur votre 
disquette ou cassette ‘’Utilitaires'”, afin 
d'être rechargé par MERGE'"AFFMENU"" 
pour un programme nouveau. À chaque 
menu ou sous-menu deux lignes de 


BASIC suffiront.…. 


LES MENUS A LA MODE 

Vous connaissez ces menus où l’on des- 
cend par la barre d'espacement, le joys- 
tick ou les touches-flèches, avec l'option 
en cours qui apparaît en inversion vidéo. 
C'est très facile à réaliser et l’auteur l'a 
déjà publié récemment (voir CPC n° 17 
page 39). C'est peut-être à la mode mais 
c'est beaucoup plus lent que la méthode 
précédente. En effet, si vous voulez l'op- 
tion n° 7, vous devez presser six fois la 
barre d’'espacement puis la touche 
ENTER pour valider. Si je sais compter 
cela fait sept touches au lieu d'une... A 
la longue cela devient même terriblement 
agaçant. Pardonnez-moi si je préfère le 
style « turbo » des menus « mono- 
touche ». Ils permettent en outre l'anti- 
cipation au clavier dans le cas d’une suc- 
cession de menus. (Quand on connaît 
bien son logiciel...). 


LA SAISIE « PLEIN-ECRAN » 

Le problème est le suivant : || y a une 
dizaine de réponses à donner sur une 
même page d'écran, donc dix lignes de 
LINE INPUT. Mais, l'erreur étant 
humaine, on doit pouvoir à tout moment 
« remontrer » dans l'écran avec les tou- 
ches curseur afin de pouvoir corriger une 
réponse déjà entrée. Idem pour la des- 
cente ; bref, il faut que l'on puisse se 
promener dans l'écran avec les touches 
curseur pour taper là où l'on veut. 
Conclusion évidente, c'est l'emplace- 
ment du curseur au moment de la frappe 
qui ira dire au programme quelle est la 
variable concernée par cette entrée. On 
dispose pour cela de deux précieuses 
fonctions BASIC :VPOS!{# 0) qui renvoie 
le numéro de ligne, et POS{# O) qui ren- 
voie le numéro de colonne. (Si cela se 
passe dans un WINDOW # 2 ce sera bien 
sûr VPOS(# 2) et POS{(# 2)). 


Cette pratique et idéale dans un pro- 
gramme de gestion de fichier, où l'écran 
représente une fiche et chaque ligne une 
rubrique (légendée bien sûr). À chaque 
ENTER le programme sait par VPOS(# O) 
à quel numéro de rubrique il faut attribuer 
ce qui vient d’être entré. Le calcul n’est 
pas toujours simple, surtout si l'on a 
ajouté pas mal de gadgets utiles à cet 
écran de saisie. 

Pour un exemple réel d'application voir 
du même auteur « Programmes utilitai- 
res pour AMSTRAD » page 106 (SORA- 
COM). Non seulement cela me fait un 
peu de pub (çà aussi c'est à la mode), 
mais ça évite d'’alourdir encore cet 
article. 


CONCLUSION 

Certains vont me reprocher de « n'avoir 
pas tout dit ». C’est vrai que j'ai préféré 
passer sous un silence poli certaines fan- 
taisies « basiqueuses » telles que les 
concaténations par INKEYS$ ou les lectu- 
res de mémoire d'écran. L'essentiel était 
de maîtriser les INPUT afin qu'ils ne se 
transforment pas en INPLOUF ! 
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VP PLANNER 
UN TABLEUR FACILE 


L'apparition du PC 1512, ordinateur de 
faible coût au standard PC, a incité les 
éditeurs de logiciels professionnels à 
créer des versions spécifiques de leurs 
produits, ceci afin de les rendre accessi- 
bles à une nouvelle clientèle, qui n'est 
pas forcément disposée à payer un logi- 
ciel plus cher que la machine. VP PLAN- 
NER de la société Softissimo est un 
tableur professionnel entièrement en 
français, doté d'un module de présenta- 
tion graphique des résultats. Par rapport 
à la version de base, le programme des- 
tiné au PC 1512 et aux compatibles PC 
en général a été amputé de la base de 
données multidimensionnelle. Mais mal- 
gré cela, vous aurez la possibilité d'ef- 
fectuer des tris et des recherches multi- 
critères sur les données de la feuille de 
calcul. 

La mise en œuvre du programme ne pose 
aucun problème majeur, mais n'oublions 
pas qu'il s’agit d’un programme profes- 
sionnel, et le manuel (en français égale- 
ment et fort bien détaillé) met en garde 
les débutants et leur conseille de suivre 
un stage de formation aux tableurs ou de 
se procurer l’un des ouvrages cités dans 
la bibiliographie. Par contre, si vous avez 
déjà utilisé un tableur, vous ne serez pas 
dérouté car la syntaxe des commandes 
est très proche de celle des autres 
tableurs. En cas de difficulté, il est tou- 
jours possible de faire appel à des écrans 
d'aide. Une des caractéristiques les plus 
intéressantes de VP Planner est la com- 
patibilité assurée avec les fichiers créés 
par Lotus 1.2.3. Autre point fort, les 
macros Autokey qui permettent d'enre- 
gistrer automatiquement une séquence 
de touches tapées au clavier et de les 
rejouer à n'importe quel moment, d'où 
un gain de temps appréciable lors des dif- 
férentes manipulations. Enfin, un jeu de 
commandes permet, à partir des don- 
nées figurant sur la feuille de calcul, de 
créer des fichiers qui seront exploitables 
par DBase Il ou III. Conscients de l'as- 
pect parfois rebutant de certains 
tableurs, les auteurs se sont attachés à 
rendre convivial l'écran de VP Planner. 
Ainsi, vous avez en permanence l'heure 
et la taille mémoire disponible. La ges- 
tion de la mémoire est optimisée ; seu- 
les les cellules occupées prennent de la 
place en mémoire, ce qui permet d'utili- 
ser pleinement les 256 colonnes et les 
99939 lignes. Si vous arrivez à le remplir, 
téléphonez-nous ! Nous avons également 
apprécié la possibilité d'utiliser la virgule 
à la place du point décimal pour les prix 
exprimés en francs français de même 
que la date qui est présentée sous la 
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L'écran de VP-Planner 


Numéros de lignes 


1 
2 
3 
4 
s 
6 
u 
8 
9 


Cellule acuve 


Leures repérani les colonnes 


Sigruficatwn des touches de fonction en mode PRET 


ace L | Modifie FA Nom A Abs | Va 6 | Base 


14.30 


Mémoire disporuble 


MOIS DE JANVIER 1986 


PAPIS 
Lyon 
HARSEILLE 
LILLE 
BO?.DEAUX 


voseueun— 





Heure 


MICRO TOTAL POURCENT 
33.7 123.3 
11.9 56.4 
93.9 73.2 
8.9 39.5 
23.7 35.6 


36.379 
15.64% 
21.59 
9.00 
*15.4cn 


TOTAL 119.2 131.7 


Resultats corpares des magasins (en centain d 
pour le =ois de Janvier 1986 PP 





forme JJ.MM.AA et non au format amé- 
ricain. Pas de mauvaises surprises donc 
au niveau du tableur, voyons maintenant 
le module graphique. 

Tout d’abord, il faut préciser que votre 
machine doit être équipée d’une carte 
graphique (pas de problème pour le 
1512) qui peut être choisie parmi les sui- 
vantes : Hercules monochrome, CGA 
couleur standard ou EGA haute résolu- 
tion. Après avoir choisi dans votre feuille 
de calcul le champ de données qui vous 
intéresse, il ne vous reste plus qu'à sélec- 
tionner le mode d'affichage entre 
camembert, linéaire ou histogrammes. 
Dans les deux derniers cas, le choix des 
échelles peut être manuel où automati- 
que. Enfin, vous avez naturellement la 
possibilité d'ajouter des légendes où 
vous le souhaitez. 


83.1 239.0 100.004 


ac=s 


Un mois d'essais nous a convaincus que 
VP Planner proposé à 990 F rend les 
mêmes services qu'un gros (par le prix) 
tableur, et c'est là le meilleur éloge que 
l'on puisse en faire. 
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LOGICIELS JEUX 
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N° 5: Morpions P.28 
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LOGICIELS UTILITAIRES 


N° 1: Label Matic P.21 
Un désassembleur P.37 
Amslog P.41 

N° 2: Traceur de camembert P.19 
Vie pratique P.22 
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N° 6: 


N° 7: 


N° 8: 


N° 9: 


N°10: 
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N° 15: 
N°16: 
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Traceur de cercles 

Tous à table 

Consommation de carburant 
Fonction circle 

Redef' car 

Lexique anglais/français 

Recopie d'écran 

Le Tr 

Mouvement ralenti 

Amstus, le tableur 

Traceur de graphique 

Discut, un utilitaire pour disque 
Double hauteur 

Table de références croisées des variables Basic 
Tri par arborescence 

Transition Hex/Deci/Hexa 

Tokext, une extension du Basic 
Discothèque 

On error goto : le vaccin anti-erreur 
Creedata 

Technique du chain merge 
Catalogue Disk Printer 

Analyse 

Arbre généalogique 

Budget familial sur Amstus 

Deux extensions Basic : cercle et paint 
Protlist 


: Recopie d'écran 


Allez Médor, cherche 

Multi-fichier 

Codage Turbo pour imprimantes 
Comment récupérer un fichier commercial 
Caractère Symbol After 

Prot Disc 

Etik-disc 

Additif au programme Analyse 
Extension Basic et Sprite 
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Supercat 

Désassembleur DESACPC 
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Menu 2 + 
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Bon pour le son 
La Musica 
Mozart 
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Frédéric CIESIELSKI 


Starwar est un jeu 

d'arcade écrit moitié À 
en Basic et moitié en | 
langage machine, 

mais pas n'importe 

quel jeu d'arcade, 

puisque son auteur 

s'est vu attribuer le | 
deuxième prix du \ 
concours CPC. 


REGLE DU JEU 

Le joueur dispose d'un vaisseau spatial, 
pris au piège dans une zone de l’espace : 
chaque fois qu'il essaie d'en sortir, il y 
est ramené de l'autre côté. Ce vaisseau 
peut tirer, pivoter sur lui-même, avancer, 
changer de place aléatoirement. Il est 
muni d'un réservoir de fuel qui se vide 
lentement et qu'il faut remplir de temps 
en temps à la pompe, sous peine d'être 
immobilisé. 

La mission du joueur consiste à détruire 
tous les vaisseaux circulant autour de lui, 
en leur tirant dessus. Il existe 4 tailles 
pour les vaisseaux ; détruit, chacun 
donne naissance à deux autres plus 
petits qui apparaissent plus tard. 
Lorsqu'un des plus petits vaisseaux est 
détruit, il peut selon les niveaux de jeu 
donner 2 autres vaisseaux de même 
taille, ou un autre qu'il faudra toucher 2 
fois pour l'abattre, et qui foncera à la 1re 
touche à toute vitesse et dans tous les 
sens ou encore ne rien donner du tout. 
Il existe indépendamment de cela un 
vaisseau à tête chercheuse qui se dirige 
vers le joueur, qu'il faut atteindre 2 fois 
(à la 1e touche, il s'arrête quelques ins- 
tants puis repart), et un vaisseau-étoile, 
qu'il faut aussi toucher 2 fois (à la 1'e 
touche, il fait demi-tour). 


Pour cela, le joueur dispose de 3 vies, et 
en gagne une tous les 2 tableaux (un 
tableau est fini lorsque tous les vaisseaux 
ont été détruits). 

A la fin de chaque tableau, un bonus est 
accordé au joueur en fonction du temps 
mis pour le passer (de 500 à 5000). Le 
jeu comporte 15 niveaux de difficulté. 
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CONSEILS PRATIQUES 

+ Ne pas rester près des bords de la 
zone d'espace, car les vaisseaux y appa- 
raissent brusquement. 

e Etre très minutieux pour règler la 
direction du tir (2 directions possibles 
pour chaque position du joueur), le pro- 
gramme étant très sensible à la moindre 
pression même brève à certains niveaux 
de jeu. 

e Le plein : il faut amener le joueur dans 
le carré situé à gauche à côté de la 
pompe. Mais l'entrée est très étroite : il 
faut centrer le vaisseau et le mettre dans 
l'axe horizontal de ce carré, puis s'en 
approcher à vitesse réduite, afin d'affi- 
ner éventuellement et de recentrer le 
joueur. 

Le moindre décalage du vaisseau pour 
rentrer le renverra de l'autre côté de 
l'écran. 

Une fois dans le carré, le joueur devra se 
placer dans les angles, pour que le 
museau du vaisseau prolonge les tuyaux 
d'alimentation (il y en a 2). Pour ajuster 
sa position, il suffit d'appuyer sur la tou- 


SE L=L+S:WEND 
100 DATA 
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che ‘‘/"" (avance), et de pivoter légère- 
ment le vaisseau dans les 2 sens (G et 
D). S'il est impossible d'attraper l'un des 
2 tuyaux (ça arrive), il suffit de se tour- 
ner vers l'autre et de recommencer la 
manœuvre. 

Cela paraît compliqué, mais avec un peu 
d'habitude, c'est très très facile. 


MISE EN ŒUVRE DU PROGRAMME 
Le listing 1 est un programme Basic qui 
charge en mémoire le programme en lan- 
gage machine. Après l'avoir tapé, 
sauvez-le immédiatement sur disque par 
Save ‘‘Code'’. Puis faites Run suivi de 
Save ‘‘Starwar'’, B, &6610, &2684. 
Votre programme binaire est maintenant 
sauvé. Tapez maintenant le listing 2 et 
sauvez-le par Save ‘Basic’. Vous voilà 
maintenant presque au bout de vos pei- 
nes. || ne vous reste plus qu'à taper le 
programme du listing 3 et à le sauver 
sous le nom Starwar. À vous de jouer ! 
Nous espérons que votre satisfaction 
sera à la hauteur de vos efforts. 
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DD,7E,03,FE,18,38,09,21,80,67,20,07,C3,60,66,C9,0632 
FE,10,38,09,21,2C,8F,20,03,C3,60,66,C9,FE,08,38,0C10 
09,21,00,67,20,03,C3,60,66,C9,21,80,66,C9,C9,00,11AF 
DD,ES,FD,ES,DD,E1,DD,ES,CD,10,66,FD,E1,DD,E1,C9,1E7B 
Ei,D1,3E,14,32,72,A6,21,06,00,22,70,A6,F1,C9,00, 24E2 
DD,7E,00,CD,30,8B,21,06,00,22,70,A6,3E, 14, DD, 56, 2AA9 
02,DD,5E,01,32,72,A6,DD,35,03,C3,10,66,00,00,00,2F7F 
00,00,00,0€,00,00,00,00,01,0F,00,00,00,03,01,0F,2FAE 
08,00,00,0F,0B,0F,0C,00,01,0F,0F,09,0F,08,01,0F,303A 
0F,00,07,0C,03,0E,04,00,01,0F,07,0C,00,00,00,0F,30AS 
07,0C,00,00,01,0E,07,0C,00,00,01,0E,03,08,00,00,30F2 
00,0F,07,00,00,00,00,0F,07,00,00,00,03,0E,03,02,3134 
00,06,0F,0E,03,0F,08,07,0F,0C,03,0F,0E,0F,0F,00,31D1 
00,0F,0F,0F,0F,00,00,03,0E,0F,0E,00,00,01,0E,06, 3250 
04,00,00,01,0C,02,00,00,00,00,00,00,00,00,00,O00, 3263 
00,00,00,0€C,00,00,00,00,01,0F,00,00,00,03,01,0F,3292 
08,00,00,0F,0B,FE,0C,00,01,7F,1F,DC,OF,0B,01,F3,3644 
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FD,98,FF,0C,03,F8,71,BB,FE,87,07,FE, BO,B0,FO, BF, 4071 
34,FF,80,00,FS, CE, 16,F6,00, 10,FS,CE, 13,F0,80, 30, 4875 
F3,8F,17,FC, 40, 10,F0,CB,16,F3S,A0,00,70,B6,15,FF,5126 
E8,F0,F3,8E,12,Fé,E0,FA,ES,0C, 03,78,F7,FB,ES, 00, SBAO 
00,1F,CF,7D,CB, 00,00, 03, CE, OF , 0E, 00, 00, 01,0E, 06, SED9 
04,00,00,01,0C,02, 00, 00, 00, 00, 00,00, 00, 00, 00, 00, SEEC 
00,00, 00,00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 04, SEFO 
00,00, 00, 00,00, 0F, 0B, 00,00, 00,01,3E,08,00,00,01,5F4F 
OF, 7D,0C,08,00,03,7B,FD,8F,08,01,03,FD,F9,F8,0C,64FF 
03,1F,FD,FB,E3S,0C,0%,B7,FC,FO,CF,00,01,F9,F8, FO, 6ESC 
ES,0€,01,7C,F0,F2,F0,4B,00,3F,FC,F1,DE,86,00,01,767B 
F9,F1,8F,0C,00,07,F3,F6, 86,00, 00,3C,OF,C7,84,00,7D09 
00,07,0B,4B,0C, 00, 00, 01,08, 0E,08, 00,00, 00, 00,04, 7D75 
00,00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00,00, 00,00, 00, 7D95 
00,02, 00, 30, 30,02, 00, 30, 30, 02,00, 30, 30, 02, 00, 50, 7EED 
30,02, 00, 30, 30,02, 00, 30, 30, 02, 00, 30, 30, 02, 00, 30, 8075 
30,02, 00, 30, 30,02, 00, 30, 30, 02, 00, 38, 38, 02, 00, 30. 820D 
30,02, 00, 30, 30,02, 00, 30, 30,02, 00, 30, 30,02,00,31,8596 
31,02, 00, 30, 30,02, 00, 30,38, 02,00, 43,43,02,00,57,8554 
37,02, 00,30, 30,02, 00, 30,38, 02,00, 43,44,02,00,46,8728 
46,02, 00, 30, 30,02, 00, 30, 38, 02, 00,43, 46,02, 00, 46, B7O0D 
46,02,00,37,30,02,00,30,38,02,00,43,44,02,00, 46, BAF7 
46,02, 00, 30, 30,02, 00, 30, 38, 02, 00, 43, 43,02, 00, 37, BCCA 
37,02, 00, 30, 30,02, 00, 30,30, 02,00,30,30,02,00,31,BESA 
31,02, 00, 30, 30,02, 00, 30, 30,02, 00, 38,38, 02,00, 30,B8FFS 
30,02, 00, 30, 30,02, 00,30, 30,02,00,30,30,02,00,30,917B 
30,02, 00, 30, 30,02, 00, 30, 30, 02, 00, 30, 30,02, 00, 30, 7303 
30,02, 00,30, 30,02, 00,30,30,02,00,30,30,02,00, 30, 74BB 
30,02, 00, 30, 30, 02,00, 30, 30,02, 00, 30, 30,02, 00, 30, 9613 
30,02, 00, 30, 30,02, 00, 30, 30,02, 00, 30,30,02,00,31,779C 
DD,21,58,A6, CD, 60, 78,C9, 30,02, 00, 30, 30,02, 00, 32, 9CD8 
32,02, 00,30, 30,02, 00,30, 30,02, 00,38,39,02,00,46, 7EB9 
46,02, 00, 30, 30,02, 00, 30, 30,02, 00, 38, 42,02, 00,46, A0S7 
46,02, 00,31, 31,029 00, 30, 30,02, 00,38, 46,02, 00, 46, A22B 
46,02,00,46,31,02,00, 30,30, 02,00, 38, 42,02, 00,46, A410 
46,02,00,31,31,02,00,30,30,02,00,38,37, 02,00, 46, ASD7 
46,02,00, 30, 30,02, 00, 30, 30,02, 00, 30, 30,02, 00, 32, A777 
32,02,00, 30, 30,02, 00,30,30,02,00,30,30,02,00,31,A902 
31,02, 00, 30, 30,02, 00, 30,30, 02, 00, 30, 30, 02,00, 30, AABB 
30,02,00, 30, 30,02, 00, 30, 30,02, 00, 30,30, 02,00, 30, AC13 
30,02,00, 30, 30, 02, 00, 30, 30,02, 00, 30, 30,02, 00, 30, AD9B 
30.02. 00, 30. 30.02.00. 30. 30.02, 00. 30. 30,02, 00,30, AF23 
30,02,00, 30, 30, 02, 00, 30, 30,02, 00, 30, 30, 02, 00, 30, EOAB 
30,02,00,31,30,02,00,38,28, 02,00, 33, 32,02, 00, 45, B25D 
30,02,00,30,30,02,00,30,30,02,00,45,45,02,00,35,B412 
33,02, 00,30,30,02,00,30,30,02,00,46,46,02,00,53,BSCC 
01,00,00,11,00,01,CD,A0,8B,C9,00,46,46,02,00,33,B9SE 
33,02, 00,30,30,02,00,30,32,02,00,46,46,02,00,33,BB1A 
33,02,00,30, 30,02, 00,30,45,02,00,46,46,02,00,31,BCE7 
31,02,00,30,30,02,00,30,43,02,00,3%6,36,02,00,31,BE70 
31,02,00,30,30,02,00,30,43,02,00,30,30,02,00,31,CO02D 
31,02,00, 30, 30, 02,00, 30,38,02,00,30,30,02,00,30,C1BE 
30,02,00, 30, 30,02, 00,30,30,02,00, 30, 30,02,00,30,C346 
30,02,00, 30, 30,02,00,30,30,02,00,30,30,02,00,30,C4CE 
30,02,00,30,30,02,00,30, 30,02, 00, 30, 30,02, 00,30, C656 
30,02,00, 30, 30,02,00,30,30,02,00,30,30,02,00,30,C7DE 
30,02, 00, 32, 30, 02,00, 30,50,02,00,37, 37,02, 00,38,C97E 
30,02,00,31,30,02,00,30, 30,02,00,43,43,02,00,37,CB34 
37,02,00,30,30,02,00,30,30,02,00,45,45,02,00,37,CCF4 
37,02,00,30,30,02,00,30,30,02,00,46,46,02,00,37,CEB6 
37,02,00,30,30,02,00,30,34,02,00, 45,45, 02,00,37,DO07A 
37,02,00, 30, 30,02,00,30,43,02,00,45,46,02,00, 33, D24A 
33,02,00, 30, 30,02,00,30,38,02,00,43, 44, 02,00,32,D406 
32,02,00,30, 30,02, 00, 30,38,02,00,30,31,02,00, 32, DS9B 
32,02,00,30, 30,02,00,20,30,02,00,30, 31,02, 00, 30, D726 
30,02,00,30,20,02,00, 30, 30,02,00,30, 30, 02, 00, 30, DBAE 
30,02,00,30,30,02,00,30,30,02,00,30,30, 02, 00, +0, DAS6 
30,02,00,30,30,02,00,30,30,02,00,30,30, 02, 00, 30, DBBE 
30,02,00, 30, 30,02, 00,30, 30,02,00,30, 30,02, 00,30, DD46 
30,02,00, 34, 30,02, 00,30,30,02,00,45,45,02,00, 30, DEFC 
30,02,00,33, 30, 02, 00, 30,30, 02,00, 38, 28, 02, 00, 46, E0AD 
46,02,00,30,30,02,00,30,30,02,00,43,43,02,00,46,E287 
46,02, 00, 30, 30,02, 00, 30, 30,02,00, 45, 45,02, 00, 46, E465 
46,02,00,30,30,02,00,30,38,02,00,43,42,02,00,46,E647 
46,02,00,30,30,02,00,30,38,02,00,43, 46, 02, 00,37,E81D 
37,02,00,30, 30,02, 00, 30,30,02,00,38,42,02,00,35,E9CB 
35,02,00,30, 30,02,00,30,20,02,00,30,33,02,00,34,EBSF 
34,02,00, 30, 30,02,00,30,30,02,00, 30,32, 02,00, 30,ECED 
30,FF,42,41,53,49,43,20,20,20,30,32,32,10,00,FF,F181 
42,41,53,49,43,20,20,20,42,41,53,11,00,FF,43,4F,F5BB 
4E,4€,45,52,49,45,42,41,53,02,00,FF,43,4F,55,52,FABC 
42,45,53,20,42,41,53,02,00,FF,53,45,54,55,50,20,FFOF 
20,20,43,4F,4D,08,00,FF,53,54,41,52,57,41,52,20, 0579 
30,30,31,04,00,FF,53,54,41,52,57,41,52,20,30,31,07B2 
34,11,00,FF,53,54,41,52,57,41,52,20, 30,38, 34, 11,0BE7 
00,FF,53,54,41,52,57,41,52,20,31,30,34,14,00,FF, 10D2 
53,54,41,52,57,41,52,20,31,30,35,14,00,FF,52,54, 1566 
41,52,57,41,52,20,41,46,46,0F,00,FF,53,54,41,52,1A18 
57,41,52,20,42,41,33%,01,00,FF,53,54,41,52,57,41,1ECA 
52,20,42,49,4E,10, 00,FF, 57,20, 20, 20, 20, 20, 20, 20, 225B 
42,41,53,01,00, 00,00,00,00,00, 00,00, 00,00, 00,00, 2352 
00,00, 00,00, 00,00, 00,00, 00, 006, 00, 00, 00, 00, 00,00, 2352 
00,00, 00,00,00, 00, 00,00, 00, 00, 00, 00, 00,00, 00,00, 2332 
00,00, 00,00, 00, 00, 00, 00, 00,00, 00,00, 00, 00, 00,00,2332 
00,00, 00,00,00,00,00,00,00,00,00,00,00,00,00,00,2332 
00,00! 00! 00! 00, 00! 00! 00, 00 00, 00, 00, 00, 003 00, 00, 2332 
00,00, 00,00,00,00,00,00,00,00,00,00,00,00,00,00,2332 
00,00,00,00,00,00,00,00,00,00,00,00,00, 00, 00, 00, 2332 
DD,7E,03,FE,1E,38,02,3E,1E,5F,16,06,CD, 80, 70, DD, 2957 
7E,03,6F,26,00,54,5D,29,29,29,11,00,05,19,16,04,2BE2 
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SD,CD,80,70, 16,05,5C, CD, 80, 70,09, 00,00, 00, 00, 00, 30F9 
00,00,00,00,00,00,00,00, 00, 00, 00,00, 00, 00, 00,00, 30F® 
F3,3E, F3, 32, 20,6F,32,F0,6E, 32, 10,70, 32,F0,6F, 32, 37ES 
90,6F,32,70,6F,32,A0,6E,32,80,6E,32,40,6E,11,00,3D44 
oA,CD,80,70,16,07,CD,60,70,CB,D7,CB,EF,5F, CD, 80, 45CD 
70,CD,FO0,6F,F3,CD,70,6F,F3,01,00,F7,3E,96,ED,79,4F2D 
FB,C9, 00, 00,00, 00, 00,00, 00,00, 00, 00, 00, 00, 00,00, 50F 1 
00. 00. 00, 00.00, 004 00 « 001.00 x 004 004002004004 00 00. SOF 1 
F3,3E,C9,32,20,6F,32,F0,6E,32,10,70,32,F0,6F,32,57B1 
90,6F,32,70,6F,32,A0,6E,32,80,6E,32,40.6E,11,0C, SDIE 
OA, CD,80,70,16,07,CD,60,70,CB,97,CB,AF,5F , CD, 80, 6527 
70,CD,40,6D,01,00,F7,3E,%6,ED,79,FB,C9, 00,00, 00, 6C07 
00,00,00,00,00, 00, 00,00, 00,00, 00,00,00,00,00,00,6C07 
00,00,00,00,00, 00,00, 00,00, 00,00,00,00, 00,00,00, 6C07 
F3,01,00,F7,3E, 86,ED,79,16,07,CD,60,70,CB,DF,CB,744B 
E7,CB,EF,CB,87,5F,CD,80,70,34,F9,BC,Cé6,20,5F,16,7D74 
00,CD,80,70,11,00,01,CD,80,70,11,0C,08, CD, 80,70, 82E2 
01,00,F7,3E,96,ED,79,FB,C9,00,00,00,00,00,00,00,87D8 
F3,00,00, 00,00, 00,00, 00,00, 00,00, 00,00, 00,00, 00, B8CB 
00,00,00,00,00,00,00,00,00,00,00,00, 00, 00,00, 00. 8BCB 
F3,01,00,F7,3E,86,ED,79,16,07,CD,60,70,CB,DF,CB,910F 
E7,CB,EF,CB,87,5F,CD,80,70,3A,D7,93,D6,C1,ED, 44, 9BBA 
Cé,05,5F,16,00,CD,80,70,11,00,01,CD,80,70,11,0A,AO71 
08,CD,80,70,01,00,F7,3E,96,ED,79,FB,C9,00,00,00,A72C 
00,00,00,00, 00, 00, 00, 00, 00, 00, 00,00, 00, 00, 00, 00, A72C 
F3,3E,00,32,CA,8F,F3,01,00,F7,3E,86,ED,79,11,00, AE0E 
oA,CD,80,70,16,07,CD,60,70,CB,D7,CB,EF,5F,CD, 80, B697 
70,FB,C3,C9,7A,00,00,00,00, 00,00, 00,00, 00, O0, 00, BAOB 
FS,21,CA,8F,34,F3,01,00,F7,3E,86,ED,79,16,07,CD,C1A8 
60,70,CB,EF,CB,DF,CB,E7,CB,97,5F, CD, 80, 70, SA, CA, CC10 
8F,Dé6,FF,ED,44,5F,16,04,CD,80,70,11,00,05,CD,80,D33E 
70,11,0C, OA, CD, B0,70,01,00,F7,3E, 96,ED, 79,C9, 00, D98D 
00,00,00, 00,00, 00,00, 00, 00, 00, 00, 00, 00, 00, 00, 00, D7BD 
F3,01,00,F7,3E,86,ED,79,11,00,09,CD,80,70,16,07,DF96 
CD,60,70,CB,CF,CB,E7,5F,CD,80,70,"B,C9,00,00,00,EB5F 
F3,01,00,F7,3E,86,ED,79,16,07,CD,60,70,CB,8F,CB,FO053S 
E7,CB,DF,CB,EF,5F, CD, 80, 70, 34, 48, A6, 6F , 26, 00, 29, FBAO 
00,00,00,11,30,00,19,16,02,5D,CD,80,70,16,07%,SC,FBA1 
CD,80,70,11,09,09,CD,80,70,01,00,F7,3E;76,ED, 79, 0270 
FB,C9,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0434 
00,00, 00,00,00,00,00,00,00, 00,60, 00, 00, 00, 00, 00, 0454 
F3,01,00,F7,3E,B6,ED,79,11,00,08,CD,80,70,16,07,0ASC 
CD,60,70,CB,C7,CB,DF,5F,CD,80,70,FB,C9,00,00,00,12FS 
F3,01,00,F7,3E,86,ED,79,16,07,CD,60,70,CB,DF,CB, 1B39 
E7,CB,EF,CB,87,5F,CD,80,70,11,00,00,CD,80,70,11,2327 
03,01,CD,80,70,11,0C,08,CD,80,70,01,00,F7,3E, 76, 2896 
ED,79,FB,C9,00, 00, 00,00, 00, 00, 00, 00, 00, 00, 00, 0O, 2BCO 
00,00, 00,00, 00,00, 00,00, 00, 00, 00, 00,00, 00,00, 00, 2BCO 
06,F6,ED,78,F6,C0,ED,79,06,F4,ED,51,06,F6,ED,78, 35D6 
Eé,7F,ED,79,06,F4,ED, 78,C9,00,00,00,00,00, 00,00, 3BC9 
06,F6,ED,78,F6,C0,ED,79,06,F4,ED,51,06,F6,ED, 78, 45DF 
Eéb,BF,ED,79,06,F4,ED,59,C9,00,00,00,00,00,00,00, 4BF3 
CD, BO, 76, 3A, 6D,A6,FE,00,20,23,3A, 60, A6,FE,05,30,52F3 
1C, 3A, 66, A6,FE, 00, 28, 15,CD, 80, BC, SA, 6E, A6, 21, C8, 59A0 
8F,BE,38,09,3E,01,32,6D,A6,21,66,A6,35,CD,30,7E, 5F8F 
CD,CO0,82,CD,70,81,CD,BO,76,CD,A0,80,CD,B0,76,CD,69FC 
DO,8B,CD,A0,74,3A,48B,A6,FE,03,30,03,CD,20,77,CD,71C5 
20,77,3D,20,06,3E,02,32,70,A6,C9,CD,80,7D,%D,20,7737 
06,3E,01,32,70,A6,C9,CD, C0, A, CD, DO, 7C, CD, BO, 76, 7FAO 
21,6A,A6,06,04,97,BE,20,1D,23,10,FA,21, DC, 90,BE, B5ES 
20,14,21,6B,A6,BE,20,0E,23,BE, 20, 0A, 21,66, A6, BE, 8B2A 
20,04,32,70,A6,C9,3A,42,B6,CB,5F,20,14,0E,50,06,9053 
FF,DD,21,D2,8E,10,FA,0D,20,FS,3A,43,B6,CB,57, 20, 9851 
F9,3A,47,B6,CB,67,20,06,3E,05,32,70,46,C9,3A,C2,9F29 
8F,FE,00,28,09,3C,FE,19,28,01,97,32,C2,8F,0E, 14,A4AF 
06,FF,DD,21,D2,8E, 10,FA,OD,20,F5,C3, A0, 70,00,00,AC11 
DD,21,5D,93,06,3C,CS,CD, 80,80, 3A,6F, A6,FE, 00, 20, B34C 
01,3C,FE,BB,38,02,CB,3F,4F,3A,6E, A6,FE, 15,30,02,B965 
Cé,A0,47,CD,B0,8A,DD,75,00,DD,74,01,DD,23,DD,23%,C1BD 
C1,10,D3,C9,00,00,00, 00, 00,00, 00,00, 00, 00,00, 00,C42A 
32,6A,A6,5F,16,00,21,D9,8F,19,3A,DB,90,77,2B,77,CA41 
C9,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,CBOA 
CD,F0,75,34,48,A6,21,C6,8F,BE,20,11,3A,D8,93,FE, D36C 
00,28, 08,%E,00,32,D8,93,CD,70,6F,18,0C,CD,90,6F,D913 
3A,49,46,3D,28,05,32,49,A6,18,51,3A,48,A6, 32,49, DDDS 
A6, CD, 40,81,CD, 30,8B,ED, 4B,50, 46, SA, DB, 73,87,5F,E648 
16,00,DD,21,D2,8E,DD,19,DD,7E,00,80,47,FE, 17, 50,ED19 
05,CD,10,74,18,0A,FE,FA,30,F7,32,51,A6,CD,90,7C,F4B2 
ED,4B,50,A6,DD,7E,01,81,4F,FE,06,30,05,CD,10,74,FB96 
18,0A,FE, BA, 30,F7; 32,50, A6,CD, 30,7C,CD,40,81,CD,0393 
80,8B, 3A,F3,8C,3D,20,05,3A,C2,8F,FE,00,20,11,3E,09B1 
01,32,C2,8F,32,F9,8C, CD, 40,81,CD,30,8B, 00, 00,00, 1002 
34,55, A6,2D,20,05,3%A,57,A6,FE,00,20,25,ED,4B,50,159B 
A6,3A,4C,A6,87,5F,16,00,FD,21,D2,BE,FD,19,DD,21,1CFB 
58,46,DD,7E,04,FE,00,28,0B,DD,21,5F, A6, DD,7E,04,23SEB 
FE,00,20,63,FD,7E,00,CB,27,CB,27,80,47,FD,7E,01,2B0E 
cB,27,CB,27,81,4F,FE,00,2B,4D,FE,C0,30,49,7B,FE, 32E2 
11,38,44,00,00,00,00,DD,71,02, DD, 70,03,CD,BO, BA, 3B16 
DD,75,00,DD,74,01,3E,00,DD,96,02,E6,07, DD, 77,06,3EB4 
DD,7E,03,3D,E6,03,00, DD, 77,05, SA, 4A,A6, CB, SF , SC, 4501 
47,3A,4C,A6,CB,27,57, 3A, 4B, A6, BB, 30,01, 15, DD, 72,4B3S 
04,3, 56, A6, 32,57, A6, 2A,56, A6, 7C,B7,28,03,25,18,505F 
07,34,55,16,B7,28,01,65,22,56,A6,3E,00,32,F3,8C, SSED 
32,F4,8C,22,FS,8C, 32,F6, BC, 32,55, 46, C9, 00,00, 00, SCFC 
3A,F9,8C,FE,O00,CA,E0,71,21,FB,8C, SC, 32,F9,8C,BE, 662A 
28,25S,ED,5B,4E,A6,21,04,00,22, 70, A6, SE, OC, 32,72, 6AFE 
A6,34,45,6,21,FC,8E, CD, 80,8B,CD,20,77,C3,40,6E,7321 
00,00,00,00,00,00,00,3E,00,32,F9,8C,ED,SB,4E, A6, 7752 
21,04,00,22,70,A6,3E, OC, 32,72, A6,5A,45,A6,21,FC, 7C85 
BE, CD, 30,8B, 3E, OA, 52, 7A, A6, CD, 80,8C, SA, 6E, A6, FE, 845A 
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BE,38,02,CB,3F,FE,07,30,04,C6,06,18,F8,4F,3A,6F, BA66 
A6,FE, 17, 30,04,C6,06,18,F8,FE,FA,38,02,CB,2F,47,91B4 
ED,43,50,A6,3C,E6,03,3C,32,4D,A6,78,D6,06,47,79,9874 
D6,05,4F,3E,00,91,E6,07,32,45,A6, CD, BO, 8A,22,4E, EEE 
A6,CD,80,8C, SA, 6F,A6,CB,3F,E6,0F,3C, 32, 4C, A6, CD, A6EB 
80,7D,%D,20,09,3A, 7A, A6, SD, 32, 7A, A6, 20, 9B, CD, 40, ACFC 
81,CD,80,8B,CD,F0,6F,C9,00,00,00,00,00,00,00,00,H24A 
78,FE, 17,30, 14,34,51,A6,C6,E2,32,51,06,3C,E6,0%,B94B 
3C,32,4D, 46, 2A,4E,46,11,3B,00,19,22,4E,A6,C9,FE, BFO6 
FA, 38, 1C,3A,51,46,D6,E1,22,51,A6,3C,E6,03,3C,32,CSF8 
4D,ñ6,2A,4E,A6,11,37,00,3F,ED,52,22,4E,46,C9,79,CC27 
FE,07,30,1E, 34,50, A6, Cé6,B2,32,50,A6, 3A,45,A6,D6,D345 
02,00,00,00,32,45,A6,2A,4E,A6,11,E0,16,19,22,4E,D712 
A6, C9, FE, BA, DB, 3A, 50, A6, Dé, B2, 32,50, A6, 3A,45,A6,E016 
Cé,02,00,00,00,32,45,A6,2A,4E,A6,11,DF,16,3F,ED,ES4B 
52, 22,4E,A6,C9,00,00,00,00,00,00,00,00,00,00,00,E77C 
CD,B0,76,3A,51,46,FE,28,30,09,3A,50,A6,D6,4B,FE,EF4E 
20,38,08,3E,00,32,F4,8E,C3, 40, 73,CD,F0,75,3A,48,F5DA 


A6,21,C6,8F,BE,20,11,3A,D8,93,FE,00,28,08,3E, 00,FEF6 
32,D8,93,CD,70,6F,18,11,CD,90,6F,00,00,00,00,00,0134 
3A,49,A6,3D,28,05,32,49,A6, 18, 4D,3A,48.A6,32,49,05FO 
A6,CD,40,81,CD,30,8B,ED,4B,50, A6, SA,D8,93,87,5F,0E65S 
16,00,DD,21,D2,8E,DD,19,78,FE,17,58,2D,DD,7E.,00,151C 
80,FE,17,47,30,0C,79,D6,5E,FE,03,38,26,CD,10,74,1B91 
18,07,7B,32,51,46,CD,90,7C.ED,4B,50,A6,DD,7E,01,2254 
81,4F,32,50,4A6,CD, 30, 7C, 18,25, DD, 7E,00,80,47,FE,2982 
07,38,F5,78,32,51,06,CS,CD,90,7C,DD,7E,01,C1,81,3193 
AF,FE, SE, 38,0A,FE,62,30,06,32,50,A6,CD, 30,7C, CD, 3884 
40,81,CD,80,8B,3A,51,A6,FE,07,2B,12,97,32,55, A6, 3F52 
32,F3,8C,32,F4,8C, 32,F5,8C,32,F6,8C,C9,00,00,3A,471F 
S0,46,FE,5SE, 20,09, 3A,4C,A6,FE,0F,20,DF,18,0B,FE,4DF3 
61,20,FB,3A, 40, A6,FE,0B,20,F7,3E,10,32,78,6,21,5477 
D7,93,7E,FE, CO,28,1D,34,46,3E,C1,90,4F,06,FE, CD, 5CBB 
B0,8A,01,06,00,09,7%6,FF,22%,36,FF,CD,A0,6E, SA, 78, 62EF 
A6,3D,20,D8,00,00,00,77,32,55,A6,32,F3,8C,32,F4,6965 
ec, 32,F5,8C, 32,F6,BC,C9,00,00,00,00,00,06,00,00,6E21 
00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,6E21 
3A,FS,68C, 47,3A,F6,8C,80,20,0E,3A,FA,8C, 3D,20,06,74B0 
32,FA,8C,CD,F0,6F,18,56,CD,10,70,3A,F5,8C,21,4B,7C76 
A6,3D,20,23,35,7E,FE, 00,20, 1B, SA, 4A,A6,77,CD,40,8236 
81,CD,30,8B, SA, 4C, A6, SD, 20,02,3E, 10,32, 4C, A6, CD, 8809 
40,81,CD, 80, 8B, 18,22, %4, SA, 4A, A6, BE, 30, 1B, 36,01, BD7A 
CD, 40,81,CD, 30,8B, SA, 4C,A6,3C,FE,11,38,02,3E,01,9380 
32,4C,A6,CD,49,81,CD,80,8B,3E,01,32,FA,8C,3A,F4,9B2F 
ec, 3D,28,1D,3A,C6,8F,47,3A,48,A6,B8,28,11,21,47,4A094 
A6,35,20,0B,3A,46,A6,77,3A,48, A6, 3C, 32, 48,46, 18,ASD3S 
20,3A,4C,ñ6,32,D8,93,34,48,46,FE,01,28,13,21,47,ABB6 
A6,34,3A,46,A6,BE,30,09,36,01,3A,48,A6,3D,32,48,B093S 
A6,C9,00,00,00,00,00,00,00,00,00,00,00,00,00,00,B202 
3A,4B,B6,CB,77,28,05,3E,01,32,F3,8C, SA, 4C, B6, CB, BBAS 
77,28,05,2E,01,32,F4,8C,3A,51,Bé6,CB,7F,28,05,SE, BE2E 
01,32,FS, 8C, 3A,50,B6,CB,7F,28,05,3E,01,32,F6,8C,C468C 
3A,4B,B6,CB,6F,28,05,3E,01,32,55,46,CD,24,BB,3E,CAB4 
01,CB,0C,30,03,32,F3,8C,CB,0C,30,03,32,F4,8C,CB, DOC7 
0C,30,03,32,F5,8C,CB,0C,30,03,32,F6,8C,CB, OC, 30, D6é7E 
03,32,55,A6,C9,00,00,00,00,00,00,00,00,00,00,00, D877 
3A,D7,93,FE,00,20,03,3E,01,C9,21,D6,93,35,7E,FE, DF7F 
00,28,03,3E,02,09,3A,D5,93,77,23,46,35,SE,C1,90,E4F9 
4F,06,FE,CD, B0,8A,01,06,00,09,36,00,23,36,00,3A,E92C 
D7,93,FE,14,30,0C,01,01,00,11,00,00,CD, AO, 88,00,EDEC 
00,00,3E,02,C9,00,00,00,00,00,00,00,00,00,00,00,EEFS 
FD,ES, DD,E1,34,68,A6,FE,00,28,77,3A,D3,8E, DD, 96,F888 
03,30,02,ED,44,FE,06,30,0C, SA, D2,8E, DD, 96,02,30,FE6D 
02,ED,44,FE,06,30,5B,21,74,A6,34,3A,DB,8F,3SD,28,04A4 
22,21,75,06,34,3E,01,32,D8,8F,01,01,00,11,00,00,0821 
CD, AO, 88, 34, 68, A6, Dé, 08, 38,02,20,02,Cé, 10, 32,68,0E08 
A6,18,2F,21,04,00,22,70,A6,3E,0D,32,72,A6,11,34,122C 
00,3A,CF,8F,21,F9,A0,19,3D,20,FC,ED,5B,CB,8F,3A,19CC 
CD,8F,CD,30,8B,97,32,68,A6,01,02,00,11,00,05,CD,1F6D 
40,88, 3A,69,A6,FE,00,28,65,3A,D1,8F, DD, 96,03, 30,26A9 
02,ED,44,FE,08,30,0C, SA, DO,8F,DD,96,02,30,02,ED,2D4B 
44,FE,08,30,49,21,74,46,34,3A,D9,8F,3D,20,28,21,32C5 
05,00,22,70,A6,3E,0F,32,72,h6,11,4B,00,3A,D6,68F,3794 
21,BB,8C,19,3D,20,FC,ED,5B,D2,8F,2A,D4,8F,CD,30,3FB1 
8B,97,32,69,A6,18,0E,21,75,A6,34,3E,01,32,D9,68F,4583 
3E,20,32,D5,8F,01,00,00,11,00,05,CD,A0,88,3A,74,4A31 
A6,47,3A,75,A6,BB,20,04,3A,74,06,C9,FD,21,FC,8C, 5212 
FD,7E,0S,FE,00,28,09,FD,21,00,8D,FD,7E,03,FE, 00, 58E6 
28,2E, SA,FF,8C,47,3A,03,8D,B8,38,06,FD,21,FC, 8C, SFAE 
18,04,FD,21,00,8D,21,06,00,22,70,A6,3E,14,32,72,63CA 
A6,FD,5E,01,FD,56,02,CD,40,66,FD,7E,00,CD,30,8B,6B97 
DD,7E,03,D6,0A,FE, 11,30,02,3E,11,FE,ED, 38,02,3E,71C8 
EC,47,DD,7E,02,D6,0A,28,02,30,02,3E,01,FE, AD, 38, 77B6 
02,3E,AC, 4F,CS,CD,BO,BA,FD,75,01.FD.74.02.3SA.F7.7FD4 
ec,FD,77,0%,C1,79,E6,07,47,3E,08,90,E6,07,FD,77,877C 
00,34,51,46, DD,96,03,30,02,ED,44,FE,O0A, 30, 16, SA, BDOE 
50,46, DD,96,02,30,02,ED,44,FE,O0A,30,08,3E,03,32,9268F 
70,h6,E1,E1,C9,34,74,A6,C9,00,00,00,00,00,00,00,984D 
DD,46,04,CB,40,28,0E, 3A,7A,A6,0F,30,03,04,18,05,9C72 
05,20,02,06,20,78,C9,00,00,00,00,00,00,00,00,00, 9E00 
00,00,00,00,00,00,00,00,00,00,00,00,00,00, 00,00, 7E00 
DD,ES,FD,E1,3E,01,32,75,A6,32,74,A6, DD, 21, DC, 90, A6E2 
DD,7E,00,FE,00,CA,70,77,DD,7E,09,3D,20,06,16,0B, ACD4 
1E,0B,18,07,3D,20,06,16,09,1E,09,18,07,3D,20,06,AE47 
16,07,1E,05,18,04,16,05,1E,05,FD,7E,03,DD,96,00,B1D2 
30,02,ED,44,BA,D2,B8, 7A,FD,7E,02,DD,96,01,30,02,B9i6 
ED,44,BB,D2,B8,7A,21,74,46,34,DD,7E,09,3D,20,17,C04D 
CD,10,84,CD,30,8B,3SA,6C,A6,C6,02,32,6C,A6,01,00,C68F 
00,11,00,09,C3,BO,7A,3D,20,17,CD,40,84,CD,30,8B,CC23 
3A,6B,A6,C6,02,32,6B,A6,01,01,00,11,00,02,C3,BO,D101 
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DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


7A,3D,20,29,CD,70,84,CD, 30,8B, SA, 6A, A6,FE,FE, 30, DBCO 
07,C6,02,CD,C0,71,18,0C, Dé, 40, 32, 6A, A6, SA, 6D, A6, DF56 
3C,32,6D,A6,01,02,00,11,00,00,C3,B0,7A, DD,7E,09,E43C 
47,3A,DB,90,B8,20,39,CD,A0,B4, CD, 30, 8B, 3SA,67,A6,EEF9 
3D,28,09,01,02,00,11,00,05,C3,BO, 7A, SA; 6A, A6, SC, EFFS 
20,06,21,6D,A6,34,3SE,EF,32,6A,06,5F,16,00,21,D9,FS2F 
8F,19,3A,DB,90,3C,77,01,02,00,11,00,05,C3,BO, 7A,FASS 
38,31,CD,A0,84,CD,30,8B, 3A, 6A, A6,FE,FE, 20,08, Dé, 025B 
40,21,6D,A6,34,18,02,C6,02,32,6A,A6,01,02,00,5F,0689 
16,00,21,D9,8F,19,DD,7E,09,3C,77,2B,77,11,00,05,0B10 
C3,B0,7A,90,FE,FF,20,13,DD,34,09,01,01,00, 11,00, 10EA 
00,21,75,A6,34,CD,A0,88,C3,B8,7A,CD, 0,84, CD, 30, 1932 
8B,01,01,00,11,00,05,C3,BO, 7A, 00, 00,00, 00,00, 00, 1BC2 
CD,40,88,CD, 10,8B,18,05,11,04,00,DD,19,C3,60,79,21E9 
3E,02,32,76,46,DD,21,58,A6, DD, 7E,04,FE, OO, 20, 0E, 27FE 
3A;76, A6, 5D; CB, 32, 78; A6,DD,21,5F,A6,18,EB, SE, 04, 2EEF 
32,7A,A6,CD,20,6F,DD,6E,00,DD,66,01,1E, 00, DD, 7E, 35A5 
0S,3D,32,78,A6,CD,20,8C, CD, 20,79,00,5F, 16,00, FD, 3868 
21,D2,8€,FD,19,DD,7E,02,FD,86,00,DD,77,03,FE, 12, 43%67 
30,08,3E,00,DD,77,04,C3,F0,6E, CD, FO, 7B, DD, 7€, 02, 4AEB 
FD,86,01,DD,77,02,28,EA,FE,C1,30,E6,CD,70,7B,DD,5441 
6,00, DD, 66, 01, DD, 7E, 05, 3D, 32, 78; A6, CD, 50: 7D,FE,5B78 
00,28,0C,CD,50,79,3D,28,07,97,DD,77,04,C%,F0, 6€, 61BE 
DD,6E,00, DD, é6,01,1E,03, DD, 7E, 05, 2D, 32, 78, A6, CD, 6828 
20,8C, SA, 7A, A6,3D,C2,E0, 7A,C3, DO, 7A, 00, 00, 00, 00, 6E 74 
DD, 7E,06,47,FD,7E,01,4F,FE, 80,28, 36, ED, 44, BU, FE ; 76A2 
08,38,13,DD,6E,00,DD,66,01,11,B0,37,19,DD, 75,00, 7BE7 
DD,74,01,0C, D6,08,DD,77,06,11,00,FB, DD, 6, O0, DD, B2AE 
66,01,79,FE,00,28,04,19,3C,20,FC, DD, 75,00, DD, 74, 88CC 
01,C9,57,78,92,30,13,DD,6E,00, DD,66,01,11,50,CB, BEF2 
19,DD,75,00,DD,74,01,0D,Cé6,08, DD, 77,06, 11,00,08,93FD 
DD,6E,00,DD,66,01,79,FE,00,2B, 04,19, SD, 20, FC, DD, 9A7E 
75,00,DD,74,01,C9,00,00,00,00,00,00,00, 00,00, 00, 9D0E 
DD,7E,05,47,FD,7E,00,FE, BU, 30, 16,80,FE, 05, 38, OF, ASBE 
DD,6E,00,DD,66,01,23,DD,75,00, DD, 74,01,D6,04, 18, AA06 


18,ED,44,4F,78,91,28,02,30,0F,DD,6E,00,DD,66,01,AF9F 
2B,DD,75,00,DD,74,01,C6,04,DD,77,05,C9,00,00,00,B55A 
3A,45,46,47,DD,7E,01,4F,FE, 80,38, 2A,ED,44,80,FE, BDOO 
08,38,0D,2A,4E,46,11,B0,37,19,22,4E, A6, 0C,D6,08,C17C 
32,45,46,11,00,FB,2A,4E, A6,79,FE,00,28,04,19,3C,C6BB 
20,FC,22,4E,A6,C9,57,78,92,30,0D, 2A,4E, A6, 11,50, CCDO 
c8,19,22,4E,A6,0D,Cé6,08,32,45,A6,11,00,0B,2A, 4E,D150 
A6,79,FE,00,2B,04,19,2D,20,FC,22,4E,A6,C9,00,00,D6EA 
3A,4D,A6,47,DD,7E,00,FE, 80,30,10,80,FE,05,38,09,DD3B 
2A,4E,A6,23,22,4E, A6,D6,04,18,12,ED,44,4F,78,91,E31F 
28,02,30,09,2A,4E,A6,2B,22,4E,A6,C6,04,32,4D,A6,E7D0 
C9,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,E899 
3E,02,32,78,A6,DD,21,FC,8C, DD, 7E,03,FE, 00,28,59,EF BC 
21,06,00,22,70,A6,3E, 14,DD,56,02,DD,5E,01,32,72,F452 
A6, DD. 35.03. CD, 10, 66, DD 7Es 03, FE« 00. 20. 26, DD. 7E.FB4D 
00,CD,30,8B,DD,ES,FD,E1,3A,78,A6,5D,28,05,01,04,023C 
00,18,0%,01,FC,FF,FD,09,FD,7E,03,FE, 00, 20,0%, CD,08C5 
80,6D,18,15,DD,7E,00,CD,80,BB,00,00,00,00,00,00,0D12 
00,00,00,00,00,00,CD,E0, 6D, SA, 78, A6, 2D, CB, 22,78,1233 
A6,DD,21,00,8D,C3,D9, 7C, 00,00, 00, 00,00, 00,00, 00, 1670 
56,CB,4F,20,04,CB,O0A,CB,0A,FS,21,B0,8F,7A,E6, 33, 1DA2 
4F,06,00,7E,B9,28,04,23,04,18,FB,F1,CB,47,20,04,22BB 
CB,08,CB,08,78,E6,03,C9,00, 00,00, 00,00, 00, 00,00, 2688 
3A,F9,8C,B7,28,02,97,C9,ED,4B,50,46,DD,21,DC, 90, 2F20 
DD,7E,00,FE,00,28,40,DD,7E,09,2D,20,05,1E,11,53,3429 
18,06,30,20,05,1E,0F,53,18,07,3D,20,06,1E,0D,16,3SEC 
0B,18,03,1E,0B,53,DD,7E,00,90,30,02,ED, 44,BB, 30, SAC7 
0E,DD,7E,01,91,30,02,ED,44,BA,30,03,3E,01,C9,11,402B 
04,00, DD,19,C3,90,7D,3A,6B,A6,FE,00,2B, 1B, SA, DS, 4691 
8E,90,30,02,ED,44,FE,OD,30,0F,3SA,D2,8E,91,30,02, 4CE9 
ED,44,FE,OD,30,03,3E,01,C9,3A,69,A6,FE, O0, 26, 1B, 52BA 
3A,D1,8F,90,30,02,ED,44,FE,OE, 30,0F,3A, DO,8F,91,59BC 
30,02,ED,44,FE,0E, 30,03%,3E,01,C9,3E,02,C9,00,00,5E6F 
00,00,00,00,00,00,00,00,00,00,00,00,00, 00,00, 00, 5E6F 
CD,A0,87,CD, DO,86,CD,80,8C,3A,6F,A6,47,3A,C9,8F, 6787 
B8,D0,CD,80,8C, 3A,6E,A6,FE,F1,38,02,CB,3F,FE, 20, 7087 
30,03,17,18,F9,47,3A,6F,A6,FE,99,38,02,CB,3F,FE, 7751 
10,30,03,17,18,F9,4F,CD,80,8C,SA,6F,A6,E6,07,FE,7E1E 
07,20,01,3D,57,D5,S3A,FB,8C,6F,26,00,5F , 16,00, 29,B2A3 
29,19,29,11,DC,90,19,ES,DD,E1,FE, 40,CB,3C,52,FB, BABé 
8C,11,04,00,19,36,00,D1,3A,6E,A6,FE, 40,230, 1A, SA, 8F BD 
éD, A6; FE, 00, 28,17, SD, 32, 6D, A6, 2E 01, CD, DO, 84, SA, 95E9 
D7,8F,DD,77,06,DD,77,07,C9,FE, 80, 30,25, SA, 6C, A6, DEC 
FE,00,2B,22,3D,32,6C,A6,2E,02,CD,50,85,3A.D7,8F,A427 
47,3A,6F,A6,17,30,04,05,20,01,04, DD, 70,06, DD, 70, ABD2 
07,C9,FE, CO, 30,12,34,6B,A6,FE, 00, 2B,0B, SD, 32,6B,AEFB 
A6,2E,03,CD,D0,85,18,1E,SA,6A,A6,FE,00,20,05,21,B4B5 
FB,8C,35,C9,3D,32,6A,A6,D5,5F, 16,00,21,DA,8F, 19, BBA6 
7E,6F,D1,CD,50,86,CD, 80, BC, 5A,6F,46,E6,0F,47,3A,C3AS 
D7,8F,B8,30,04,CB,38,18,F9,78,FE,00,20,01,3C. DD, CABB 
77,06, DD, 77,07,C9, 00,00, 00,00, 00,00, 00, 00, 00, 00, CD5C 
CD,10,84,CD,30,8B,DD,7E,00,FD,B86,00,DD,77,00,FE, D575 
1B,30,0B, CD, 10,8B, SA, 6D,A6,3C, 32, 6D,A6,C9,FE, F7, DCBF 
30,F1,CD,20,8A,DD,7E,01,FD,86,01,DD,77,01,FE,0B,E495 
38,E1,FE,B7, 30, DD, CD, A0,89,CD,10,84,CD, 80,8B, 11,EDBO 
0A,00,DD,19,C9,00,00, 00, O0, 00, 00,00, 00,00,00,00,EF79 
CD,40,684,CD, 30,8B, DD, 7E,00,FD,86,00, DD, 77,00,FE,F7C2 
19,30,0B,CD, 10,8B,3A,6C,A6,5C, 32,60, A6,C9,FE,F9,FFOA 
30,F1,CD,20,8A,DD,7E,01,FD,86,01,DD,77,01,FE,09,06DE 
38,E1,FE,B9,30,DD,CD,A0,89,CD,40,84,CD,80,8B, 11,102B 
0A,00, DD, 19,C9,00, 00,00, 00, 00,00, 00,00, 00,00,00, 11F4 
cD,70,84,CD, 30,8B, DD,7E,00,FD,86,00,DD,77,00,FE, 1A6D 
17,30,0B,CD,10,8B,34,6B,A6,3C,22,6B,A6,C9,FE,FB,21B3 
30,F1,CD,20,8A,DD,7E,01,FD,86,01,DD,77,01,FE,05,2983 
38,E1,FE, BD, 30, DD, CD, 40,89, CD,70,84,CD, 80,8B, 11, 3304 


2185 
2190 
2195 
2200 
2205 
2210 
2215 
2220 
2225 
2230 
2235 
2240 
2245 
2250 
2255 
2260 
2265 
2270 
2275 
2280 
2285 
2290 
2295 
2300 
2305 
2310 
2315 

Z20 


2325 


2330 
2325 
2340 
2345 
2250 
2355 
2360 
2365 
2370 
2375 
2380 
2385 
2:90 
2395 
2400 
2405 
2410 
2415 
2420 
2425 
2430 
2475 
2440 
2445 
2450 
2455 
2460 
2485 
2470 
2475 
2480 
2485 
2490 
2495 
2500 
2505 
2510 
2515 
2520 
2525 
2530 
2535 
2540 
2545 
2550 
25355 
2560 
2565 
2570 
2575 
2580 
2585 
2590 
2595 
2600 
2605 
2610 
2615 
2620 
2625 
2630 
2633 
2640 
2645 
2650 
2655 
2660 
2665 
2670 
2875 
2680 
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DATA 
DATA 
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DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


04,00, DD, 19,C9,00,00,00,00,00,00,00,00,00,00,00,34CD 
CD,40,84,CD, 30,8B,DD,7E,00,FD,86,00,DD,77,00,FE, SD76 
15,30,27,DD,7E,09,F5,CD,10,8B,D1,3A,6A,A6,FE,FF,45BB 
20,09,3D,21,6B,A6,34,32,6A,A6,C9,2C, 32, 6A, A6, 4F, 4B5F 
06,00,21,D9,8F,09,DS,F1,77,C9,FE,FD,30,D5,CD,20,5SEA 
8A,DD,7E,01,FD,86,01,DD,77,01,FE,05,:8,CS,FE, BD, 5C64 
30,C1,CD,40,89,CD,A0,84,CD,80,8B,11,0A, 00, DD,19,6425 
C9,00,00,00, 00,00, 00,00, 00,00,00,00,00,00,00,00,64EE 
DD,21,DC,90,DD,7E,00,FE,00,CB,DD,25,07,28,07,11,6BD2 
04,00, DD,19,18,EE,DD,7E,06,DD,77,07,FD,21,D2,8E,7312 
DD,7E,05,87,5F,16,00,FD,19,DD,7E,04,E6,07,DD,77,7A24 
04,CD,70,B8A, DD, 7E,09, 3D, 20,05, CD, 40,7F,18,06,3D,7F9C 
20,05,CD,90,7F,18,06,3D,20,05,CD,E0,7F,18,18,=A,84B3 
DB,90,DD,%6,09,3C, 3C, 20,0B,CD,7C,8A,3E,01,DD,77,8BAS 
06,DD,77,07,CD,30,80,C3,A4,B0,00,00,00,00,00,00,9068 
00.00.00, 00, 00, 00,00. 00,00,00,00,00,00,00, 00.00.9068 
00,00, 00,00, 00, 00,00, 00, 00, 00, O0, UU, OO, O0, 00, O0, 7068 
00,00,00,00,00,00,00,00,00, 00,00, 00,00, 00,00, 00, 7068 
21,04,00,22,70,A6,2E,0D,32,72,46,11,D0,00,21,D5,9531 
92,3A,4C,46,47,19,10,FD,11,34,00,3A,4D, A6, 47,19, 9A2E 
10,FD,ED,5B,4E,A6,3A,45,A6,C9,00,00, 00, OÙ, 0O, 0O,9F65 
TA, D4,8F,E6,07,32,D4,8F,34,69,A6,FE,00,C8,21, D5, A789 
8F,35,C2,71,82,3A,D7,8F,32,D5,8F,21,05,00,22,70,ADFO 
A6,3E,0F,32,72,A6,11,4B,00,3A,D6,8F,21,8RB,8C,19,B3A9 
3D,20,FC,ED,5B,D2,8F,3A,D4,8F,CD,30,8B,3A,69,A6,BC19 
87,DD,21,D2,8E,5F,16,00,DD,19,3A,D1,8F,DD,86,00,C366 
32,D1,8F,FE,19,30,05,97,32,69,A6,C9,FE,FS,20,F7,CEFF 
3A,D6,8F,47,DD,7E,00,FE, 80,30, 10,80,FE,05,38,09,D2C2 
24, D2,8F, 23,22, D2,8F,D6,04,18,12,ED,44,4F; 78,91, D980 
28,07,30,09,2A,D2,8F,2B,22,D2,8F,C6,04,32,D6,8F,DF7D 
3A,D0,8F,DD,86,01,327,D0,8F,FE,0B,30,05,97,22,69,E67B 
A6,C9,FE, BA, 30,F7,3A,D4,8F,47,DD,7E,01,4F,FE,80,EFD3 
38,28, EU, 44,80,FE,08,38,0D,2A,D2,8F,11,B0,37,19,FSCB 
22,D2,8F,0C,D6,08,32,D4,8F,11,00,F8,2A,D2,8F,79,FCDA 
FE, 00,28,04,19,0C,20,FC,18,24,57,78,92,30,0D,2A,0149 
D2,8F,11,50,C8,19,22,D2,8F,0D,C6,08,32,D4,8F,11,07FO 
00,08,2A,D2,8F,79,FE,00,28,04,19,0D,20,FC,22,D2,ODSC 
8F,21,05,00,22,70,A6,3E,0F,32,72,h6,11,4B,00,3A, 1176 
Dé,8F,21,BB,8C,19,2D,20,FC,ED,5B,D2,8F,2A,D4,8F,19FB 
CD,80,8B,ED,4B,D0,8F,CD,10,89,FE,00,20,01,3C,FE, 2229 
11,38,02,3E,10,32,69,A6,C9,00,00,00,00,00,00,00,24CC 
00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,24CC 
3A,CD,8F,E6,07,32,CD,8F,3A,68,A6,FE,00,C8,21,CE,2CDA 
8F,25,C0,3A,D7,8F,22,CE,8F,21,04,00,22,70,A6,3E, 3328 
0D,32,72,h6,11,34,00,3A,CF,8F,21,F9,A0, 19, 3D, 20, 388C 
FC,ED,5B,CB,8F,3A,CD,8F,CD,30,8B,3A,68,16,87,DD,41F4 
21,D2,8E,5F,16,00,DD,19,3A,D2,BE,DD,86,00,32,D%,48E3S 
8E,FE,17,30,05,97,32,68,A6,C9,FE,FB,30,F7,3A,CF,5184 
8F,47,DD,7E,00,FE, 80,30,10,80,FE,05,28,09,2A,CB, 582C 
8F,23,22,CB,8F,D6,04,18,12,ED,44,4F,78,91,28,07,SE11 
30,09,2A,CB,8F,2B,22,CB,8F,C6,04,32,CF,68F,3A,D2,64DB 
8E,DD,86,01,32,D2,8E,FE,07,30,05,97,32,68,A6,C9,6C39 
FE, BB,30,F7,3A,CD,8F,47,DD,7E,01,4F,FE, 80,28, 28,747F 
ED,44,80,FE,08,38,0D,2A,CB,8F,11,B0,37,19,22,CB, 7AFD 
8F,0C, Dé,08,32,CD,8F,11,00,F8,2A,CB,8F,79,FE, 00, 8208 
28,04,19,3C,20,FC, 18,24,57,78,92,30,0D,2A,CB,8F, 8703 
11,50,C8,19,22,CB.8F,0D,Cé6,08,32,CD,8F,11,00,08,BC43 
2A,CB,8F,79,FE,00,28,04,19,2D,20,FC,22,CB,8F,21,9279 
04,00,22,70,A6,%E,O0D,32,72,h6,11,34,00,3A,CF,8F,9727 
21,F9,40,19,3D,20,FC,ED,5B,CB,6F,3A,CD,6F,CD,80,9FD8 
8B,CD,80,8C, SA, 6F, A6, CB,6F,C8,CB,67,28,0A, 3A,6B,A793 
A6, 3D,20,02,2E,10,18,0A,3A,68,A6,3C,FE, 11,38,02,ABDS 
3E,01,32,68,46,C9,00,00,00,00,00,00,00,00,00,00,AE1D 
21,06,00,22,70,A6,3E, 15,32,72,A6,DD,46,08,11,7E,B2D3 
00,21,7F,41,19,10,FD,DD,56,03,DD,5E,02, DD,7E,04,B90C 
C9,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,B9DS 
21,05,00,22,70,46,3E,11,32,72,A6,DD,46,08,11,55,BESD 
00,21,A0,43,19,10,FD,DD,56,03,DD,5E,02,DD,7E,04,C4B9 
C9,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,C582 
21,04,00,22,70,A6,3%E,09,22,72,A6,DD,46,08,11,24,C9D0 
00,21,25,A5,19,10,FD,DD,56,03,DD,5E,02,DD,7E,04,CFB3 
C9,00, 00,00, 00,00, 00,00,00,00,00,00,00,00,00,00, DO7C 
21,03,00,22,70,h6,3E,09,22,72,6,DD,46,08,11,1B,D4CO 
00,21,BE,A5,19,10,FD,DD,56,03,DD,5E,02,DD,7E,04,DBSC 
C9,00,00,00,00,00,00,00,00,00,00,00,00,00,00, 00, DCOS 
SA,6E, A6,0F,0F,E6,03,2D,20,08,0E,0B,2E,06,82,57,DFFS 
18,17,3D,20,16,06,1B,79,FE,41,28,08,FE,80,30,04,E462 
Cé,10,18,F8,4F,3E,02,82,57,18,0F,2D,20,0E,0E, B6,E906 
7A,D6,02,28,02,30,02,C6,10,57,18,06,06,F6,3E,OA,ED43 
82,57,DD,70,00,DD,71,01,DD,72,05,DD,75,09,78,3C,F41B 
Eb,03,3C,DD,77,08,79,D6,08,4F,E6,07,67,3E,08,94,FA72 
DD.77,04,78.D6.0A.47,CD,BO,B8A, DD,75,02,DD,74.03,0218 
CD,10,84,C3,80,8B,00,00,00,00,00,00,00,00,00,00,05%47 
SA,6E,A6,0F,0F,E6,03,3D,20,08,0E,09,3E,06,82,57,0935 
18,17,3D,20,16,06,19,79,FE,41,28,08,FE, 80, 20,04,0DAO 
Cé,10,18,F8,4F,3E,02,82,57,18,0F,2D,20,0E,0E,B8,1246 
7A,D6,02,28,02,20,02,C6,10,57,18,06,06,F8,23E,0A, 1685 
82,57,DD,70,00,DD,71,01,DD,72,05,DD,75,09,78, SD, 1DSE 
E6,03,3C,DD,77,08,79,D6,08,4F,E6,07,67,2E,08,94,23B3 
DD,77,04,78,D6,08,47,CD,B0,8A, DD, 75,02,DD,74,03,2B57 
CD, 40,84,C3,80,8B,00,00,00,00,00,00,00,00,00,00,Z2EB6 
IA, 6E, A6,0F,0F,E6,03,3D,20,08,0E,05,2E,06,82,57,32A0 
18,17,3D,20,16,06,17,79,FE,41,38,08,FE,80,30,04,23709 
Cé,10,18,F8,4F,3E,02,82,57,18,0F, SD, 20,0E,0€, BC, =BBS 
7A,D6,02,28,02,30,02,C6,10,57,18,06,06,FA,3E,O0A,2FF4 
82,57,DD,70,00,DD,71,01,DD,72,05,DD,75,09,78,3C, 46CC 
E6,02%,3C,DD,77,08,79,D6,04,4F,E6,07,67,2E,08,94,4D1D 
DD,77,04,78,D6,06,47,CD,B0,8A,DD,75,02,DD,74,03%,54BF 
CD,70,84,C3,80,8B,00,00,00,00, 00,00, 00, 00,00, 00,584E 
3A,6E,A6,0F,0F,E6,03,23D,20,08,0€,05,2E,06,82,57,SC28 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 

DATA 

DATA 

DATA 
DATA 
DATA 
DATA 
DATA 
DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 
DATA 
DATA 
DATA 

DATA 
DATA 
DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 
DATA 

DATA 

DATA 

DATA 

DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 





STAR WAR 








18,17,3D,20,16,06,15,79,FE,41,28,08,FE, 80, 30,04,609F 
Cé,10,18,F8,4F,3E,02,82,57,18,0F,2D,20,0E,0E, BC, 6549 
7A,D6,02,28,02,230,02,C6,10,57,18,06,06,FC,3E, 04, 698C 
82,57,DD,70,00,DD,71,01,DD,72,05,DD, 75,09, 78, 2D, 7065 
Eb,03,3C,DD,77,08,79,D6,04,4F,E6,07,67,3E,08,94,76B6 
DD,77,04,78,D6,04,47,CD, BO, BA, DD, 75,02, DD, 74,03, 7E56 
CD,A0,84,C3,80,8B,00,00,00,00,00,00, 00, 00,00,00, 8215 
2A,69,A6,FE,00,C0,CD, 80, 8C, ZA, 6E, A6,E6,F0, 47, 3A, BA9A 
6F,A6,E6,0F,80,47,%A,C4,8F,B8,D0,CD,80,8C,:A,6E. 9201 
A6,FE,F1,28,02,CB,3F,FE, 20,30,03,17,18,F9,47,2A,99D4 
éF,A6,FE,99,28,02,CB,3F,FE,10,30,03,17,18,F9,4F,AO7C 
CD,806,8C, :A,6F,A6,E6,07,FE,07,20,01,3D,57,3A,6E, A6F3S 
A6,0F,0F,E6,02,3D,20,08,0E,08,23E,06,82,57,18,17,A067 
3D,20,16,06,19,79,FE,41,5%8,08,FE, 80, 30,04,C6,10,AF79 
18,F8,4F,3E,02,82,57,18,0F,5D,20,0E,0E,B9,7A,D6,B49A 
02,28,02, 30,02, C6, 10,57, 18,06, 06,F4,2E,0A,82,57,B8SE 
ED,43,D0,8F.,78,2D,E6,07,2C,22,D6,8F,7A,32,69,A6,C019 
97,22,D9,8F,79,D6,07,4F,E6,07,67,3E,08,94,12,D4,C72% 
8F,2A,D7,8F, 32, DS. 8F , 78, D6, 06, 47, CD, BO, 8A, 22, DZ, CF7E 
8F,CZ,71,82,00,00,00, 00, 00,00, 00,00, 00,00, 00,00, DICZ 
3,68, A6,FE, 00, CO, CD, 80, 8C, SA, GE. A6, E6 FO, 47. ZA, DA47 
6F,A6,E6.0F,80,47,2A,CS,8F,B4.D0,CD,80,8C, ZA, 6E, EZAF 
A6,FE,F1,28,02,CB,2F,FE,20,20,03,17,18,F9,47,ZA,E982 
6F,A6,FE,99,28,02,CB,3F,FE,10,30,03,17,18,F9,4F,FO02A 
CD,80,8C,1A,6F,A6,E6,07,FE,07,20,01,3D,57,3A,6E,F6A1 
A6,0F,0F,E6,03,3D,20,08,0E,07,2E,06,82,57,18,17,FA14 
2D,20,16,06,17,79,FE,41,28,08,FE,80,20,04,C6,10,FF24 
18,F8,4F,2E,02,82,57,18,0F,2D,20,0E,0E, BA, 7A, Dé, 0446 
02,28,02,20,02,C6,10,57,18,06,06,FA,5E,0A,82,57,0810 
ED,43,D2,8E€,78,3C,E6,03,3C,32,CF,8F,7A,22,68, A6, O0FCS 
97,32,D8,8F,79,D6,06,4F,E6,07,67,3E,08,94,22,CD, 16C4 
8F,2A,D7,8F,22,CE,6F, 78, D6,06,47,CD,B0,8A,22,CB,1F11 
8F, C3, BF, 82, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 21A5 
21,44,8F,11,AA,8F,1A,96,28,11,20,04,23,137,18,F6, 264 
21,AA,8F,11,A4,8F,01,06,00,ED,B0,11,BA.C7,21,A4,2D3D 
8F,C3,D6,88,00,00,00,00,00,00,00,00,00,00,00,00, 2FED 
ED,55,70,A6,ED,43,72,A6,06,04,11,70,46,21,AF,8F,371B 
1A,FE,00,28,14,86,FE,0A,28,0E,E5,D6,0A,77,2B,34,ICDE 
7E,FE,0A,28,F6,E1,18,01,77,2B,13%,10,E€2,CD,70,88,4%E9 
11,98,C7,21,A4,8F,3E,06,22,76,A6,D5,E5,7E,21,02,4AAO 
00,22,70,6,07,07,07,07,C6,22,6F,26,BE,2E, 7E, 32, 4EFD 
89,8B,3€,08,22,72,46,2E, 07, CD, 80,8B,3E,B6, 22,89, 5560 
8B,E1,2:,D1,13,12%,2A,76,A6,2D,C8,22,76,A6,18,CB,SC7F 
34,51,46,90,10,02,ED,44,57,14,50,6,91,210,02,ED,6ZDA 
44,5F;3A, 51, A6, BB, 20, 0C, SA, 50, A6, B9, 28,03, ZE 09, 67FD 
c9,23E,01,0C9,28,2F,2A,50,A6,B9,20,03,1E,05,C9, 30, 6D7D 
12,7B,BA,50,0%,3E,04,C9,CB,02,BA,38,053,2E,U02,C9,72CD 
3E,03,C9,7B.BA.30.0%,3E,06.C9,CB.02, BA, 38.03. 1E. 784C 
08,C9,3E,07,C9,3A,50,A6,B9,20,03,3E,O0D,C9, 30,12, 7D8D 
7B,BA,30,03,3E,0E,C9,CB,02,BA,38,03,3E,10,C9,3E, 8321 
0F,C9,7B,BA,30,03,3E,O0C,C9,CB,02, BA, 30,03,2E,0B,8877 
C9,3E,0A,C9,00,00,00,00,090,00,00, 00,00, 00,00,00,B8A%1 
DD,7E,04,47,FD,7E,01,4F,FE,80,38,36,ED,44,80,FE, 925D 
08,38,1Z,DD,6E,02,DD,66,03,11,B0,37,19,DD,75,02,97A8 
DD,74,03,0C,D6,08,DD,77,04,11,00,FB,DD,6E,02, DD, 9E71 
66,03,79,FE,00,28,04,19,2C,20,FC,DD,75,02,DD,74,A493 
03,C9,57,78,92,10,13,DD,6E,02,DD,66,0Z,11,50,C8,AABF 
19,DD,7S,02,DD,74,03,0D,C6,08,DD,77,04,11,00,08, AFCC 
DD,6E,02.DD,66,03,79,FE,00,28,04,19,3D,20,FC, DD, B6S1 
75,02,DD,74,03%,C9,00,00, 00,90, 00, 00, 00, 00,00, 00, B8ES 
DD,7E,08,47,FD,7E,00,FE,80,20,16,80,FE, 05,28, 0F,BF98 
DD,6E,02,DD,66,03,23,DD,75,02, DD, 74,03,D6,04,18,CSE8 
18,ED,44,4F,78,91,28,02,30,0F,DD,6E,02,DD,66,03,CB85 
2B,DD,75,02,DD,74,03,C6,04,DD,77,08,C9,00,00,00,D147 
09,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,D147 
CD,80,8C,3A,CS,8F,47,3A,6E, A6, BB, DB, 3A,6F,A6,CB, D9EB 
6F,28,0A,DD,7E,05,2D,20,02,3E,10,18,0A,DD,7E,05,DE1B 
3C,FE,11,20,02,3E,01,DD,77,05,C9,00,00,00,00,00,E1E9 
00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,E1E9 
cS,79,2D,0E,00,CB,3F,CB,19,1F,CB,19,1F,CB,19,CB,E85%1 
01,CB,01,CB,01,6F,5F,16,00,26,00,29,29,19,29,29,EB91 
29,29,11,06,C0,19,79,FE,00,28,07,11,00,08,47,19,EEF2 
10,FD,C1,78,3D,16,00,CB,2F,CB, 14,1F,CB, 1A,CB,02,F54B 
CB,02,5F,7A,32,78,A6,16,00,19,C9,00,00,00,00,00,F939 
00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,F939 
DD,ES,C1,21,5D,95,3F,ED,42,E5,C1,0D,ES,E1,ES,11,037A 
0A,00,19,D1,ED,B0,30,2C,33,30,2C,%2,43,2C,33,23,07FD 
2C,33,30,2C,22,43,2C,33,22,2C,24,23,2C,52,43,2C,OB1E 
33,33,2C,233,23,2C, 30,37,46,44,00,2:B,00,FE,0B,8C, OFOZ 
20,22,43,2C,33,33,2C,33,30,2C,22,43,2C,33,32,2C,1217 
34,33,2C,232,43,2C.33,33,2C,32,%2,2C,232,43,2C,35,1542 
34,2C,23.33,2C,22,43,2C,33,22,2C,%4,23,2C,32,43,186E 
2C.30,42,31,45,00,2B,00,03,0C,8C,20,22,22,2C,23, 1BTD 
33,2C,22,43,2C,33,33,2C, 28,55, 2C,32,43,2C,2%,20,1E65 
2C,33,37,2C,24,26,2C,24,34,2C,50,30.2C.23,42,2C,217E 
30,20,2C, 46,45,2C,20,42,2C,38,43,2C,20,46,20,33,24DF 
00,2B,00,08,0C,8C.20,22,230,20,23,22,2C,34,23,2C,278C 
321434 204 234 224 20, 254 35, 204 22, 4342: 33,23,2C,33,2AB7 

2C,32,4%,2C,23,32,2C,34,33,20,22,43,2C,33,353,2DDF 
ee 43,2C,31,32,31,37,00,3B,00,0D, UC, 305C 
8C,20,33,34,2C,33,33,2C,22,43,20C,22%,32,2C.%4,33,23Cé6 
2C,32,43,20,23,35, 20; 33,28, 20, 52,43, 2C, 23,23, 2C, S6EA 
335,32,2C,32,43,2C,33,32,2C,34,23,2C,22,43,2C,33,5A14 
33,2C,231,35,%4,32,00,3B,00,12,0C,8C, 20,23,34,2C, CD7 
32,43,2C,33,33,2C,33,33,2C,32,43,2C,35,32,2C, 34, 4002 
33,2C,32,41,2C,31,33,2C,3%,32,2C,22,43, 2C, 33,54, 432D 
2C,35,25,2C,32,43,2C,33,32,2C,34,23,2C,31,38,36,464F 
45,00,2B,00,17,0C,8C,20,32,43,2C,33,30,2C,234,22,4934 
2C,33,31,2C,34,25,2C,20,30,2C, 33,42, 2C, 30,30, 2C, 4C3E 
30,22,2C,30,43,00,00,00,00,00,00,09, 00, 00,00,00, 4D40 





900 MEMORY &é6600:CLEAR 
510 INK O,11:BORDER 11:INF 1,11:INK 2,11 


2:INK 3,11:MODE 1 

520 nn=1 

930 t=TIME 

940 GOSUB 50000: ‘presentation 

550 a=TIME:POKE &A6GGE, a-t-INT((a-t)/256) 

#256 

560 a=(TIME-t)/917:FOFE &AGEF, a-INT(a/25 

6) 256 

9/70 RANDOMIZE TIME 

S80 FOR n=i TO 10:n#$(n)=". ss ss sus 
s'arrete" ":NEXT 

590 r$(1)="050000":r$(2)="040000":r$ (23) = 

“O035000":r$(4)="030000":r$(5)="025000":r 

$(6)="020000":r$(7)="015000":r$(8)="0100 

O0"s:r$(9)="005000":r$(10)="001000" 

600 FOR n=%8FA4 TO S8FAF:POFE n,O:NEXT:F 

OKE &BFAS,S 

619 c$(1)="Hebert La Terreur":c$(2)="Joh 

nny La Foudre":c#$(3)="Marcel Van Den Hau 

t":c$(4)="The Big Boss":c$(5)="Fredo L'A 

rnaque"“ 

620 ch(4)="Tatave Trompe-La-Mort":c$(7)= 

“Nanard les doigts de fee":c$(8)="Riri L 

a Science":c+$(9)="Dynamite Roger":e#$(10) 

="Billy La Combine“ 

700 GOSUB 10000: ° classement 

BOO REM debut de partie 

810 v=5:FOR n=28FAA TO SBFAF:POHE n,O:NE 

XT 

829 ni=nn 

1000 REM debut de tableau 

1015 CALL 87180 

10189 w=TIME 

1020 GOSUB 35000 

10370 GOSUB 25000 

1040 GOSUB 30000 

1050 FOR n=i TO 20:CALL &8BDO:NEXT 
1055 INF 2,6: BORDER 6:INFE 0,0:1INFE 

NF 3,24 

1060 CALL &70A0:° appel FKF 
1070 CALL &6D80:SOUND 155, 
) 

1980 REM retour de rp 

1090 IF a<>0 THEN 1200 
1095 p=(TIME-Ww) /ZOO0:ENT 1,120,-S, 1: SOUND 
1,619,120,,,1 

1097 IF p<=300 THEN p=5000:G0OTO 1099 
1098 IF p>=660 THEN p=5900:G0OTO 1099:ELSE 
p=500+(660-p) #4500/360 

1099 WHILE SQ(1)>=128:WEND:ENT -5,8,-4,1 
84,1: SOUND 1,400,p*7/60,,,3:FOR n=i TO 
p/10:CALL &6AOG:NEXT 

1100 IF ni<1iS THEN ni=ni+i 

1120 IF ((ni-nn)/2={(ni-nn) \2 OR ni=15) A 

ND v<9 THEN v=v+i:WHILE SQ(1)>128:WEND:F 

OR n=1i TO 200:NEXT:ENT 5,40,-5S,1:SOUND 1 
,219,490,,,1:GOSUR 239139 

1121 FOR n=1i TO SOO:NEXT 

11390 GOTO 1018 

1200 IF a<>S THEN 13500 

1210 REM abandon 

1229 FOR n=&8FAA TO 8&BFAF:POKE n,0:NEXT 
1230 GOTO 700 


1,26:1 


O:a=PEEK (%A670 


64 


1300 IF a=2 THEN ENT 2,100,15,1:SOUND 1, 
200,100,,,2:FOR n=i TO 3200: NEXT:GOTO 15 
00: "(pas d'explosion a afficher,car plus 
d'ess) 

1400 a=PEEK (&A6SB) : b=FEEK (&A6SA) : POKE &A 

65B,PEEK (&A6S1):POKE 8RAGSA, PEEK (&A650) 
1405 FOKE &A6GSO, (PEEK (84650) +40) MOD 254 
:POKE %A6S1, (PEEK (&A651)+40) MOD 256 
1410 CALL &6900:POKE &A6S5B,a:FOKE 8&A65A, 

b 

1420 FOR n=1 TO 60:FOR m=1i TO 60:NEXT:CA 

LL %7/EZO:CALL 88170:CALL &B2CO0:CALL 8&B0A 

O: CALL &7ACO:CALL 8&7CD0:NEXT 

1900 v=v-1:IF v=0 THEN 700 

1510 m=&90DC 

1520 IF PEEK(m)=0 THEN 1610 

1930 c=PEEK (m+9) 

1540 IF c=1 THEN POKE 
1:G0T0 1600 
1550 IF c=2 
1:GO0T0 1600 
1560 IF c=3 
1:GO0T0O 1600 
1570 IF PEEK (&A66A)=255 THEN POKE &AGGA 
 &CO: FOKE 8&A66D, FEEK (&A66D) +1:GOT0 1600 
1580 POKE BA6GA, PEEK (&A&GA) +1: POKE (&8FD 

9+PEEK (&AG6A)) ,c 

1600 m=m+10:GO0T0O 1520 

1610 FOR n=0 TO S:c(n)=PEEK (&A6G6A+n) : NEX 

T 

1629 
1630 
1640 

T 
1659 
1660 
10000 
10010 REM score classement entree nom 
10020 

10030 s=0:CLEAR INPUT 

10040 FOR n=90 TO S:5=sS+PFEEK (&8FAF-n) #10 

n:NEXT 


HAGED, PEEK (&A66D) + 


THEN POKE &A66C » PEEK (&A66C) + 


THEN POKE &A66GB, PEEK (&AG6B) + 


GOSUB 55000 
GOSUB 25000 
FOR n=0 TO 3:POKE(&A66A+n) ,c(n):NEX 


GOSUB 20000 
GOTO 1050 


00",6-LEN(S#))+s% 

10055 GOSUR 12000 

190058 WHILE SQ(1)>=128:WEND: SOUND 1,300, 
2490:FOR n=1 TO S550:NEXT:SOUND 2,236, 180: 

FOR n=1i TO S50:NEXT:SOUND 4,200,120:FOR 

n=i TO SSO:NEXT 

10060 IF s$<r$(10) THEN 107230 

10070 IF s$<r$(1) THEN 10500 

10080 ‘mettre un peu de musique 

10090 FOR n=1 TO 560: NEXT:SOUND 1,300,12 
O:FOR n=i TO 275:NEXT:SOUND 2,236,90: FOR 
n=i TO 27S:NEXT:SOUND 4,200,60:FODR n=1 
TO 275:NEXT 

10500 FOR n=1i TO 10 

10510 IF s$<=r$(n) THEN NEXT 

10513 IF n=1i THEN n=10 

10515 IF n=10 THEN 10550 

19520 FOR m=10 TO n+i STEP -—-1 

10530 Fr$(m)=r$(m-1):n$(m)=n$(m—-1) 

10540 NEXT 

105590 n$(n)="":r$(n)=s$ 





10560 GOSUB 15000 

10570 LOCATE 1,24:PEN 1:PRINT'"Bien joue, 
entrez votre nom,puis ‘ENTER ':" 

10580 LOCATE 11,25:PEN 3:PRINT CHR$(154) 
+CHRS (246); :FEN 2Z:PKRINT STRINGS(26,".")3: 
: INK 0,0: BORDER O: INK 1,20:INK 2,24: INK 
5,6 

10590 n$="":1=0: SPEED KEY 15,15:PEN 2:CL 
EAR INPUT 


10600 a$=INFEYS: IF a$="" THEN 10600 
10610 IF a$=CHR$(13) THEN 10700 

10620 IF a$<>CHR$(127) THEN 10650 

190630 IF 1>0 THEN LOCATE 1+12,25:SOUND 1 


520, 10:PRINT"."s:1=1-1:nH=LEFTS(n$,1) 
10640 GOTO 10600 

10650 IF ASC(a$)<32 OR ASC(a$)>125 THEN 
10600 

10660 IF 1=26 THEN 10600 

190670 1=1+1:n$=n$+a%$ 

10680 LOCATE 1+12,25:SOUND 1,20, 10:PRINT 
a$ 

10690 GOTO 10600 

10700 IF n$="" OR n$=" 

" OR Nn$="..ssssuussenmsmeussscses:s 

..." THEN n$=c$ (INT (RND(1)#10+1)) 

10705 nH=nB+LEFTS CM ss mms 
ur." 26-LEN(n$) ) 
10710 LOCATE 11,25:PRINT STRING$(28," ") 
3: LOCATE 1,24:PRINT STRINGS(40," ") 
10720 n$(n)=n$ 
10730 GOSUR 15000 

10740 HORDER O:INK O,0:INK 
: INK 3,46 

10750 PEN 1 

10760 LOCATE 15,24:PEN 3:PRINT'"'ENTER""; 
: PEN Z: PRINT": "32:PEN 1:FRINT" jeu "; 
10770 LOCATE 3,25:PEN 5S:PRINT'"'E"";:PEN 
2:FRINT'":"3:PEN 1:PFRINT'explications ‘"; 
: PEN 3: PRINT''N'"3;:PEN 2: PRINT": "5: :PEN 1 
:FRINT'"niveau de jeu "; 

10775 CLEAR INPUT 

10780 a$=INKEYS 

10790 IF a$="n" OR a$="N" THEN SOUND 1,8 
0,60: GOSUB 20000:s$="000000":GOTO 10055 
19800 IF a$="e" OR a$="E" THEN SOUND 1,8 
0,60: GOSUB 40000:s$="000000":GOTO 10055 
10810 IF a$<>CHR#S(13) THEN 10780 

10820 SOUND 1,80,60:SPFEED KEY 15,1:INK O 
511: BORDER 11: INK 1,11:INK 2,11:INK 3,11 
: CLS: RETURN 

12000 INK O,11:BORDER 11:INK 
11:1INK 3,11: MODE 1 

2005 PAPER O0 

12010 LOCATE 17,1:PEN 1:PRINT"STARWAR" 
12070 LOCATE 17,2:PEN 3: PRINT" -----—-— “ 
2050 PEN 1:FOR n=1 TO 9:LOCATE 1,2+2#n: 
PRINT n:NEXT:LOCATE 1,22: PRINT"10" 

12035 PLOT 186,40,3:DRAWR 424,0:DRAUR 0O, 
320: DRAWR —-424,0:DRAWR 0,-320:PLOT 58,40 
52:DRAUR 104,0: DRAWR 0O,320:DRAWR —-104,0: 
DRAUR O,—-32 

12056 FOR n=1 TO 9:PLOT 186,n#32+40,3:DR 
AWR 424,0:PLOT 58,n#32+40,2:DRAWR 104,0: 
NEXT 


1,20:INK 2,24 


1,11:INK 2, 


12040 RETURN 


15000 aff. bests 
15010 FOR m=i TO 10:1IF n$(m)="" 
:b=3:ELSE a=3:b=2 
15020 PEN a:LOCATE 5,2+2#%m:PRINT r$(m):l 


THEN a=2 


OCATE 13,2+2%m:PEN b:PRINT n$(m) 

15030 NEXT:RETURN 

20000 ‘ 

20010 REM choix niveau de jeu 

20020 

20050 INK 0,11:BORDER 11:INK 1,11:INK 2, 


11:INK S3,11:MODE 1:PAPER O0 
20040 LOCATE 5,1:PEN 1:PRINT'"Dans un sou 
ci educatif et preventif,"; 


20045 PFRINT'"le joueur est prie de se 
reporter aux"; 
20050 PRINT'"legendes ci-dessous avant d 


e choisir en‘; 

20055 PRINT'"depit du bon sens un niveau 
de jeu trop"; 

20060 PRINT"complexe 
es capacites"; 

20065 PRINT'"'intellectuelles:" 

20070 LOCATE 5,24:PEN 1:FRINT"'FAITES VO 


pour ses eventuell 


TRE CHOIX AVEC "3:PEN 3:PRINT"'"3;:PEN 
2: PRINT"Q"3;:PEN S:PRINT""" 
20075 LOCATE 5,25:PEN 1:PRINT"ET ";:FEN 


3: PRINT"“?";:PEN 2:PRINT"A"3;:PEN 3:PRINT" 
‘"32:PEN 1:PFRINT" PUIS APPUYEZ SUR ‘";:PEN 
3: PRINT" "3; 2: PEN 2: PRINT'"'ENTER"; : PEN 3:P 

RINT"‘"; 

20080 LOCATE 5,8 

200970 PEN Z:FRINT"O1"3;:PEN S:FRINT" 
seille pour QI inferieur a 3."; 
20100 PEN 2:PRINT" 02"; :PEN S:PRINT" 
Four moins de 2 ans." 

290110 FEN 2:PFRINT" O3"; : PEN 
Laissez jouer grand-mere!" 
20120 PEN: 2:PRINT" O4"; :PEN S:PRINT" 
Si vous avez plus de 97 ans..." 

20130 PEN 2:PRINT" OS"; : PEN 3: PRINT" 
OK...Mais jouez sans regarder...": 
20140 PEN 2:PRINT" 06"; :PEN 3: PRINT" 
Allez! Encore un effort!" 

20150 PEN 2:PRINT" 07"3;:PEN 3S:PRINT" 
Vous y etes presque..." 

20160 PEN 2:PRINT" 08"; : PEN 
C'est raisonnable." 

20170 PEN 2:PFRINT" 09"; :PEN 3S:PRINT" 
Attention:dopage interdit!" 

20180 PEN 2:PRINT" 10"; :PEN 3: FRINT" 
Trop dur pour vous..." 

20190 PEN 2:FRINT" 11";:PEN 
Vous sombrez dans la vanite!" 

20200 PEN 2:PRINT" 12"; :PEN 3: PRINT" 
N'esperez pas!" 

20210 PEN 2:FRINT" 
Remontez vite!" 

20220 PEN 2:FRINT" 14"::PEN 3: PRINT" 
On vous aura prevenu!" 

20230 PEN 2:PRINT" 15"3;:PEN 3: PRINT" 
Reserve aux pros." 

20240 PLOT 8,46,2:DRAW 38,46: DRAW 58,288 


:DRAW 8,288: DRAW 8, 46 
000 
65 


Con 


3: PRINT" 


S: PRINT" 


3: PRINT" 


15"; :PEN 3: PRINT" 





20250 LOCATE 2,nn+7:PEN 1:PRINT CHR$ (246 
):LOCATE 5,nn+7:PRINT LEFT$("00",3-LEN(S 
TR$& (nn) ))+MIDS(STRS (nn) ,2) : INK 0,0: BORDE 


R O: INK 1,6:INK 2,20:INK 3,24 

20255 EVERY 80 GOSUB 21000:CLEAR INPUT:E 

NT —-1,10,-1,1,10,1,1 

20269 IF (PEEK(&B641) AND &X100)=0 THEN 

EI: a=REMAIN(O): INK O0,11:BORDER 11:INK 1, 
11:INK 2,11:INK 3,11:CLS:CLEAR INPUT:RET 

URN 

20270 a=PEEK(&B647):1F a=&FF THEN EI:FEN 
1:LOCATE 5,nn+7:PRINT LEFTS("00",3-LEN( 

STR$ (nn) ))+MIDS(STRS (nn) ,2) :GOTO 20260 

20275 PEN 1:LOCATE 5,nn+7:PRINT LEFT$("O 

0",3-LEN(STRS (nn) ))+MIDS$ (STRS$ (nn) ,2) 

20280 IF (a AND &X1000)<>0 THEN IF nn<15 
THEN DI:LOCATE 2,nn+7:PRINT" ":PEN 2:L0 

CATE 5,nn+7:a$=LEFTS$("O00",3-LEN(STRS (nn) 
))+MID$(STRS# (nn) ,2): PRINT a$:nn=nn+i:FEN 
1:LOCATE 2,nn+7:PRINT CHRS$(246):GOTO 20 

260:ELSE EI:G60T0 20260 

20290 IF (a AND &X100)<>0 THEN IF nn>i T 

HEN DI:LOCATE 2,nn+7:PRINT" ":PEN 2:LOCA 

TE S,nn+7:a$=LEFTS$("O0",3-LEN(STRS (nn) )) 
+MID$ (STRS (nn) ,2): PRINT a$:nn=nn-1i: PEN 1 
:LOCATE 2,nn+7:PRINT CHR$#(246):GOT0O 20264 

O:ELSE EI:GOT0 20260 

20300 EI:GO0OTDO 20260 

21000 SOUND 2,35-nn,20,,, 1: RETURN 

25000 ‘ 

25010 

23020 

29050 a=INT((4-((ni-1) MOD 5))#3.5+8):F0 

KE &93D5,a:POKE %93D6,a: vit dec ess 

25040 a=INT(3+(ni/2<>ni\2)):POKE 8&A64A, a 
:POKE 8&A64B,a:° vit rotation 

29050 a=INT(((ni-1) MOD 3)#2.5+5):POKE & 

A646,a:POKE 8&A647,a:° accel J 

250609 a=INT(nix3/12+3) :POKE &A6G6D, a: 
G debut 

293070 POKE &A6G&C,-(ni>8):° 

25080 POKE &AG6B, INT(ni#x2/10):° 

but 

293090 POKE &A667,-{(ni/2=ni\2)-(ni=15):" 
famille sple ou cplx 

23109 a=INT(((ni-1) MOD 10)+4):POKE &A6S5 

6,a:POKE &A6S7,a:° esp entre tirs 

25119 a=INT(ni#2/11+4):POKE &9O0DB,a:° n 

de clone max 

253120 a=INT((S5-((ni-1) MOD 6))*#3/5+5):P0 
KE &8FD7,a:' vit min vaisseaux 

23130 a=INT((9-((ni-1) MOD 10))+235) : POK 
E &8FC9,a:° freq appel CV 
25140 a=INT((3-((ni-1) MOD 4))*+27+128):FP 
OKE &8FC3,a:° freq chgt dir vaisseaux 
23150 a=INT((2-((ni-1) MOD 3))+255):FOKE 
&8FCS5,a:° freq apparition VF 

25160 a=(ni/2<>ni\2)+255:POKE 8&8FC4, a: ° 
freq apparition TC 

23179 a=INT(ni#20/15+10):FOKE 2&8CF8, a:P0 
KE &7167,a+10:° attente pour reapparitio 
n J 

25180 RETURN 

30000 


REM param fonction NI 


nb 


nb G6GM debut 
nb PM de 
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3530010 REM prep ecran 

30020 

30030 INK' O,11:BORDER 11:INK 1,11:INK 2, 
11: INK 3,11: MODE 1 

30040 ORIGIN 78, 400:DRAWR O,-386, 2: DRAWR 
484,0:DRAWR 0,386:O0RIGIN 0,0:FILL 2 
30050 FLOT 600,398,3:DRAWR 14,0:DRAW 614 
16: DRAUR —-14,0:DRAW 600,398:MOVER 4,-4: 

FILL 3 

30060 WINDOW#1,4,4,19,23:PAPER#1,2:FEN#1 
1: PRINT#1,"VIES" 

30070 WINDOW#2,37,37,19,23:PAPER#2,2:PEN 
#2,1:PRINT#2, "FUEL" 

30080 LOCATE 6,25:PEN 1:PAPER 2:PRINT"SC 

ORE : RECORD: "; 

30090 TAG: GRAFHICS PAFER 2:PEN 3:FOR n=i 
TO 7:PLOT 24,(7-n)#16+284: PRINT ;MID$#(" 

STARWAR" ,n,1);:NEXT: TAGOFF 

30100 CALL %888B:CALL &88D0 

30110 WINDOW#S,4,5,12,13:PAPER#KS,0:CLS#S 
30120 FOR n=0 TO 2:PLOT 44+nx%2,188+nx2,1 
:PLOT 44+n#2,226-n#x2:NEXT 

30130 FLOT 24,16,3:DRAWR 14,0:DRAUWR 0,12 
8: DRAWR —-14,0:DRAWR O,-128:PLOT 24,v#x16, 
3: DRAWR 14,9 

30140 IF v=9 THEN 301640 

30150 PLOT 26,v*#16+2,1:GRAPHICS FEN 3:FI 

LL O 

30160 

30170 

LL 5 
30180 


IF v=1 THEN 30180 
PLOT 26,v*16-2,1:GRAPHICS PEN 3:FI 


GOSUR 32000:PAPER O:RETURN 

32000 REM aff pompe 

329010 FOR n=210 TO 222 STEP 2:FLOT 8,n,i 
: DRAWR 24,0: NEXT 

32020 FOR n=18 TO 22 STEP 2:PLOT n,208,5 
: DRAWR 0,-16:NEXT 

32030 PLOT 12,190,1:DRAWR 16,0 

32040 PLOT 10,220,0:DRAWR 6,0: MOVER 0, -6 
: DRAWR -6,0 

32050 PLOT 22,220:DRAWR 6,0: MOVER 0,-2:D 
RAUWR -6,0:MOVER O,-4:DRAWR 6,0: MOVER 0, — 
2:DRAWR -6,0 

32060 PLOT 14,208,3:DRAUWR 0,-4:PLOT 16,2 
O8: DRAWR 0,-10 

32070 PLOT 26,208:DRAWR O,-4:PLOT 24,208 
: DRAWR 0,—-10 

52100 DATA 34,216,36,216,38,214,40,214,4 
0,212,40,210,42,208B,42,206,44,204,44,202 
»44,200,44,198,42,196,42,194,40,192,40,1 
90,42,188 

321190 DATA 42,216,42,218,40,220,40,222,4 


2,224,0 

32120 RESTORE 232100 

32130 READ a:IF a=0 THEN RETURN 

32140 READ b:PLOT a,b,3:GOT0 32150 

32900 RETURN 

35000 ‘ 

35010 REM prep mem pour LM 

35020 

25030 DATA &Bcf3, 00000000200a00000000000 


000000000000000, 0 
35035 DATA &6900,dd2158aécdéc/78c9,0 
35038 DATA %6a00,010000110001cd4a088c9,0 





25040 DATA &Bed2,0000,0 
35050 DATA #Bef4,00,0 


0000000000000000000040000, Ô 

335070 DATA &90db,0400,0 

35080 DATA 893d5, 2020c000,0 

35090 DATA &a645,06040640d0c0202010196€Cb5 
f870000000002000000000000000000000000000 
35100 
35110 
35120 
35130 
35140 
551950 
40000 
40010 
40020 
40030 INK O,11:BORDER 11:INK 1,11:INK 2, 
11: INK 3,11: MODE 1:CLEAR INPUT 

40040 PAPER 1:FEN O:LOCATE 16,1:PRINT CH 
R#(212)+" “"+CHRS (213) 

40050 PAPER 1:PEN 2:LOCATE 16,2:PRINT" S 
TARWAR 

40060 PAPER 1:FEN O:LOCATE 16,3:PRINT CH 
R$ (215) +" "+CHRS (214) 

40070 LOCATE 4,25:PAPER O:PEN 2:PRINT'"AP 
puyez sur ‘S pour lire la suite“ 

40080 PLOT 6,22,2:DRAW 632,22: DRAW 632,5 
28: DRAW 6,328: DRAW 6, 22 

40085 FLOT 14,30,3:DRAW 624,30:DRAW 624, 
320: DRAW 14,320: DRAW 14,30 


40090 WINDOW 2,39,6,23:CLS:PAPER S:PEN 1 
40100 PRINT" Au terme d'un tres long v 
oyage dans"; 


RESTORE 35030 

READ a:1F a=0 THEN RETURN 

READ a$:1F a$="0" THEN 35110 
FOR n=1i TO LEN(a$)-1 STEP 2 
b=VAL ("&"+MIDS(a$,n,2)):POKE a,b 
a=a+i:NEXT:GOTO 35120 


REM explications 


40110 PRINT'"votre vaisseau spatial , vo 
us arrivez"; 
490120 PRINT'"dans la zone 223 , parmi les 


endroits"; 
40130 PRINT'"les plus recules 
rs , a des; 
40140 PRINT'"milliards 
d'annees-"; 
40150 PRINT'"lumiere 
communica-"; 
40160 PRINT"-tion est desormais impossib 
le... Me 
40165 PEN 2:PRINT" 

":2:FEN 1 
Votre mission : 


de l'unive 
et des milliards 


de la Terre. Toute 


40170 PRINT" 
Z23 , afin“; 
490180 FRINT'"de 
ulterieur“; 
40190 PRINT'"d'autres vaisseaux terriens. 
Heureuse-"; 

40200 PRINT'"-ment,pour vous aider , 
station de‘; 

40210 PRINT'"ravitaillement 
e quelques"; 

40220 PRINT'"annees plus tot 
enance est"; 

40250 PRINT'"considerable : 
alimentera; 

40240 PRINT"pendant des siecles... 


nettoyer 
permettre le passage 

une 
a ete envoye 
, et sa cont 


elle vous 


40245 PEN 2:PRINT" 


“"::PFEN 1 
Le nettoyage de la zone 


40250 PRINT" 
consiste 323"; 
40255 CLEAR INPUT:INK O,0:BORDER O:INK 1 
52: INK 2,6:INK 3,24:G6G0SUB 41040 

40260 PRINT'"detruire des vaisseaux non a 
rmes, mais";:GOSUB 41040 
40270 PRINT'"aveugles et par 
aux depla-";:GOSUB 41040 
40290 PRINT'"-cements imprevisibles. 
ention:les";:G6GOSUB 41040 

40300 PRINT'"vaisseaux se multiplient a 
u fur et a'";:G6GOSUB 41040 

403510 PRINT"mesure que vous les detruise 
z.Certains";:GOSUB 41040 


consequent 


Att 


40320 PRINT"doivent etre touches deux 
fois pour'";:GOSUB 41040 

40330 PRINT"disparaitre. Il existe egal. 
ement des";:GOSUB 41040 

40340 PRINT"vaisseaux a tete chercheus 
e dont le";:GOSUB 41040 

40350 PRINT"seul but est de vous perc 


uter. Vous";:GOSUB 41040 
40360 PRINT"pouvez tirer,avancer, tourner 
sur vous-";:;:6OSUB 41040 
40370 PRINT'"meme,et, aussi 
proprietes";:GOSUB 41040 
40380 PRINT"de Z23,notamment 
lien avec";:G6G0SUB 41040 
40390 PRINT"l'hyper-espace,vous permetta 
nt d'appa-";:G6GOSUB 41040 
40400 PRINT"-raitre a volonte en n°impor 
te lequel'";:GOSUB 41040 
40410 PRINT'"de ses points.Pour effectuer 
un plein,";:GOSUB 41040 
40420 PRINT'"'il suffit de 
face aux";:GOSUB 41040 
404350 PRINT'"'tuyaux de 
Attention,";:GOSUR 41040 
40440 PRINT'"l'entree est 
difficile.";:GOSUB 41040 
40450 PRINT"Vous ne pouvez pas 
i utiliser";:GOSUB 41040 
40460 PRINT"l'hyper-espace a proximite d 
e la sta-";:GOSUB 41040 
40470 PRINT"-tion de ravitaillement;ce s 
erait trop";:6GOSUB 41040 
40480 PRINT'"dangereux. 
“;:G6O0SUB 41040 
PEN 2:PRINT" 
“::PEN 1:G6O0OSUB 41040 
PRINT" En passant votre combin 
spa-";:GOSUB 41040 
PRINT'"-tiale , jetez un 
a l1a";:GOSUB 41040 
PRINT'"notice de votre appareil: 
“;:G6OSUB 41040 
PRINT" 
“: : GOSUB 
PRINT" 
“3: : GOSUB 
PEN 2:PRINT" 


utiliser les 


son etroit 


vous placer 


ravitaillement. 
etroite et 


tirer n 


40485 ———— 
40490 
aison 
40500 
oeil 

40510 


coup d'’ 


40520 
41040 
40530 
41040 

Z";:PEN 1:PRINT" : 


eee 


40540 





rotation gauche “:; : GOSUB 
41040 
40550 FRINT" 
“;:GOSUB 41040 
40560 PEN 2:PRINT" X"3:PEN 1:PRINT" : 
rotation droite “": : GOSUB 
41040 
40570 PRINT" 
“::GOSUB 41040 
40580 PEN 2:PRINT" /"32:PEN 1:PRINT" : 
avance “3: : GOSUB 
41040 
40590 PRINT" 
“::GOSUB 41040 
40600 PEN 2:PRINT" \"3;:PEN 1:PRINT" : 
utilisation de l'hyper-espace “;:GOSUB 
41040 
40610 PRINT" 
“::GOSUB 419040 
40620 PEN 2:PRINT"'SHIFT"3;:PEN 1:PRINT" : 
tir “3: : GOSUB 
41040 
40630 PRINT" 
“::GOSUB 41040 
40640 FEN 2:PRINT" TAB"; 
abandon 
41040 
40650 PRINT" 
“s:GOSUE 41040 
40660 PEN 2:PRINT" P"'3;:PEN 1:PRINT" : 
pause “: : GOSUB 
41040 


406470 PRINT" 

“::GOSUB 41040 
40680 PEN 2:PRINT" O0"; :PEN 1:PRINT" : 
remise en marche du jeu “s: : GOSUB 
41040 
40700 FRINT" 

“::GOSUB 41040 
40710 PRINT" Ou utilisez un jo 
ystick ..."; 
41000 LOCATE 
PEN #2,2 
41010 PRINT#2, 
conclure "; 
41020 IF INKEY$<>CHR# (13) THEN 41020 
41030 PAPER O:PEN 1:INK O,11:BORDER 11:1 
NK 1,11:INK 2,11:INK 3,11:MODE 1:RETURN 
41040 IF (FEEK(&B646) AND &X10000)=0 THE 
N SOUND 1,20,20:RETURN:ELSE GOTO 41040 
90000 
90010 REM presentation 
90020 
50050 INK O0,11:BORDER 11:INK 1,11:INK 2, 
11i:INK 3,11:MODE 1:PAPER 0 
50040 LOCATE 11,1:PEN 1:PRINT'"Frederic 
CIESIELSKI" 
50050 LOCATE 17,3:PEN 2:PRINT'"presente" 


: PEN 1:PRINT'" : 
“,; : GOSUB 


#2,4,25:PAPER O: PAPER #2,0: 


“appuyez sur ‘ENTER’ pour 


50060 LOCATE 1,6 
50065 PEN 3 

50070 PRINT"  iiii iii iiii iiii i à 
iiii iiii” 

50075 PEN 3 

50080 PRINT" ii i i ii ii 
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i ii i" 
50085 PEN 1 
50090 PRINT“ ii i À LÉ ÿi à 
i ii i" 

50095 PEN 1 
50100 FRINT" 


iiii i iiii 
iiii iiii" 
20105 PEN 2 
50110 PRINT" D OÙ Où ii 1 1 ii 
1  i i i " 
90115 PEN 2 
90120 PRINT" D OO Où À À À di i 
di 1 i ii" 
90125 PFEN 2 
90130 PRINT" 
1  i i 1" 
90140 PRINT:PRINT:PEN 1 
90150 PRINT" Un logiciel 
alisation“ 
90160 FKRINT" 
feuilles" 
90170 PRINT" 
eaux , un" 
90180 FRINT" 
un stylo" 
920190 FKINT" 
m de dia-" 
90200 FRINT" 


Didi OÙ 1 À À 1 ii 


dont la re 


a coute un paquet de 100 


blanches a petits carr 
stylo bleu a pointe fine, 
rouge,7 mines HB de 0.5 m 


—-metre,une gomme blanche, 


75 litres" 

90210 PRINT" de boissons gazeuses dive 

rses , et" 

90220 PRINT" une ampoule de 60 W a 
visser." 


50230 PFRINT:PRINT:PEN 3 

930240 PRINT" Appuyez sur"; :PEN 1: PRINT 
" ‘°"::PEN 2:PRINT"'ENTER";:PEN 1:PRINT""" 
5: PEN 3:PRINT" pour continuer"; 

50250 SFEED INK 20,20:INK 0,0:BORDER O0:1I 
NK 1,24: INK 2,6:INK 3,11 

50255 SOUND 1,2300,240:FOR n=i TO SSO:NEX 
T: SOUND 2,236,180:FOR n=1i TO 550:NEXT:S0 
UND 4,200,120:FO0R n=1 TO SSO:NEXT 

50258 CLEAR INPUT 

50260 IF INKEY#<>CHRS (13) THEN 50260 
50270 INK O,11:BORDER 11:INK 1,11:INK 2, 
11:INK 3,11:CLS 

50280 RETURN@ 










STARWAR 


20 INK O,11:BORDER 11:INKH 1,11: MODE 1 
50 MEMORY &6600 


LOAD'"starwar.bin 


Allo, 








CC. 
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MIROIR ASTRAL 
L'astrologie 
à la portée de tous 


L'astrologie bénéficie actuellement d'un 
vif engouement auprès du public. Il suf- 
fit, pour s'en convaincre, de voir le nom- 
bre de magazines spécialisés et les nom- 
breuses publicités de voyantes, de 
parapsychologues et autres marabouts 
dans la presse générale. Peut être s'agit-il 
d'un phénomène de société, dû à la crise, 
où chacun essaye de trouver par tous les 
moyens, sinon des assurances sur l'ave- 
nir, au moins un réconfort moral. Nous 
avons souvent traité de l'introduction de 
l'informatique dans tous les domaines 
d'activité et, bien sûr, l'astrologie n'y a 
pas échappé. C'est pourquoi avons- 
nous, chaque fois que cela était possi- 
ble, testé les nouveaux logiciels d'astro- 
logie arrivant sur le marché et Miroir 
Astral, destiné au grand public et non 
aux officines d'astrologues, diffusé à prix 
très abordable (250 F), avait tout pour 
nous tenter. 

Le programme est livré sur une disquette 
double face {une pour les hommes, l'au- 
tre pour les femmes), accompagnée d'un 
manuel très bien documenté. La mise en 
œuvre du programme est extrêmement 
simple. Un masque de saisie permet 
d'entrer dans l’ordre le nom de la per- 
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Marcel LEJEUNE 


sonne pour laquelle on veut obtenir un 
thème, son sexe et sa date de naissance. 
La saisie est facilitée par le fait qu'iln'est 
pas nécessaire de presser Return après 
chaque donnée. Reste ensuite à saisir la 
ville de naissance et ses coordonnées 
géographiques, ainsi que le décalage de 
l'heure locale par rapport à l'heure de 
Greenwich. Le programme contient les 
coordonnées de 64 grandes villes de 
France et d'Afrique du Nord. Si toutes 
les données sont correctement entrées, 
il vous reste encore à préciser à l'ordi- 
nateur si vous souhaitez qu'il effectue 
ses calculs, suivant la domification de 
Régiomontanus ou de Campanus, si 
vous voulez les résultats à l'écran ou sur 
imprimante et, enfin, si vous voulez une 
interprétation abrégée (10 pages) ou 
complète (15 pages). À partir de là, il ne 
vous reste plus qu'à attendre les résul- 
tats. On notera que le programme ne pré- 
sente pas de thème sous forme graphi- 
que, mais qu'il fournit néanmoins sous 
forme numérique tous les éléments per- 
mettant de le tracer : position des pla- 


nètes, domification et liste des aspects. 
Il effectue ensuite la recherche de la 
dominante et une recherche des typolo- 
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gies. Bien que tous ces termes puissent 
paraître complexes au béotien,ilne faut 
pas s’en formaliser car tout cela est agré- 
menté de commentaires parfaitement 
compréhensibles sur la personnalité du 
sujet. La troisième partie, l'une des plus 
intéressantes à notre avis, est l'analyse 
proprement dite. Vous apprenez tout sur 
votre ‘‘’moi’’ apparent, sur votre ‘moi’ 
intime et sur les différents pôles de la 
psyché. Et le tout en langage clair ! Nous 
avons effectué une dizaine de thèmes 
pour des personnes de notre entourage 
qui ont toutes été séduites par la justesse 
et la clarté de l'analyse. 

Tous les renseignements proviennent de 
fichiers texte qui peuvent être modifiés 
par l'utilisateur averti. Une annexe de la 
notice d'emploi donne tous les paramè- 
tres nécessaires à ces modifications. 
Enfin, une dernière annexe vous donne 
les dates, heures et lieux de naissance 
de 177 personnalités connues de Louis 
XIV à Karl Marx, en passant par Brigitte 
Bardot et Tycho Brahe. Le tout nous 
donne un logiciel très agréable à utiliser 
et sûrement le meilleur rapport inté- 
rêt/prix dans ce domaine. Un must pour 
les passionnés d'astrologie. 
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PEÉNOMÉ, £ Huit i té à & & % sont exécutées dans les 48H 
suivant leur réception. 
AdFéSSeE » 2 25 de à do UE 
D As a ONE Ne COHEN LS TE Sémaphore Logiciels 
Case Postale 32 
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J'ai le plaisir de vous passer commande pour les articles suivants, 


Gamme CPC Prix HT Totaux 
Tasword 464 sur cassette ............ Te UT 195,00 FF 
Tasword "D" ou 6128 "Mailmerge" sur disquette ...... 280,00 FF 
Masterfile III ( 128K )} sur disquette .............. 300,00 FF 
Mastercalc 128 sur disquette ....................... 280,00 FF 
Agenda CPC sur disquette ........................... 195,00 FF 
Täsprint CPC sur cassette ........,................. 170,00 FF 
Tasprint CPC sur disquette ..3:44%% 44348 ee ave 195,00 FF 
Täascopy CPC sur cassette ......444.+. 4044446 170,00 FF 
Tascopy CPC sur disquette .......................... 195,00 FF 
Dessin Technique + Semdraw sur disquette ........... 280,00 FF 
Crayon optique DART logiciel disquette ............. 280,90 FF 
Raccord pour crayon et 6128 Amstrad ................ 75,00 FF 
Cable conversion BUS 6128 Schneider/Amstrad ........ 150,00 FF 
Digitaliseur (scanner) DART pour DMP 2000 & 3000 600,00 FF 
Scanner + Crayon OPELQUE 444364 vx served eumat eee sent 790,00 EE 
Multiface II (464/664/6128) ........................ 450,00 FF 
Extension mémoire DK'tronics 64Ko (464/664) ........ 430,00 FF 
Gamme PCW 
TaSwWOr. 8000 tante are enr eee re rare As ete 380,00 FF 
Disquette d'essai Tasword 8000 ..................... 66,00 FF 
PAS DETRE 000 ie das Ban eee lé MMS ER RIDE Énsee ES BdES R 195,00 FF 
Tasword + Tasprint 8000 ......4,44444444404s ses. ss 520,00 FF 
Discmabte: "80007: a nee rap nine et, due 20e GIE rar ee Gerets ef eue 199,00 FF 
Masterfile 8000 (livraison fin février) ............ 550,00 FF 
Guide papier imprinante PCW ........................ 100,00 FF 
Filtre ecran. POWE% G snae Pre en NE ete eve den en te Me er eut 200,00 FF 
Jeu Extension 256K PCW ............................. 330,00 FF 
Interface 2ème lecteur 3,5 ou 5,25 ................. 450,00 FF 
Lecteur: 35 4OÙ:5:25) 4 ue ducren de ete laene ei ere den eu else 1500,00 FF 
Gamme PC 13512 
Tasword PC (livraison Lin FÉVÉLER]) se me sue Gael 380,00 FF 
Disquette d'essai Tasword PC (disponible)........... 66,00 FF 
Fournitures générales 
Thingi NÉnRROES dé COpPIieh. sr memes sétstiarass 6500" EE 
Disquette "Catalogue Sémaphore" programmes gratuits 66,00 FF 
Frais de port en recommandé, par commande .......... 25,00 FF 25,00 
Supplément de contre-remboursement ................. 25,00 FF 
TOTAL:FF 


La TVA (18,6%) se paye au facteur à la réception des marchandises 
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HARDCOPIES 
SUR LES PCW (Il) 


ans CPC du mois dernier, nous avons ébauché les 


roblèmes 


liés aux hardcopies sur PCW. Entre autre, le problème de la 
longueur du buffer basic a été résolu, et des routines d’impres- 
sion graphique en assembleur ont été écrites. 


Ce mois-ci, pour continuer ce sujet, nous 
allons d'abord nous intéresser à l'envi- 
ronnement écran et au jeu de caractère 
du PCW. Ces notions ont déjà été évo- 
quées dans cette série, lors de l'étude du 
graphisme et de la visualisation des chaî- 
nes de caractère (CPC juin et juillet 86). 
Malgré tout, nous les approfondirons à 
noveau ici car certains lecteurs peuvent 
ne se souvenir que vaguement des arti- 
cles précédents, et aussi car la solution 
à ce problème est un point très impor- 
tant dans la connaissance des PCW. 
Nous finirons notre étude de ce mois par 
l'écriture de deux programmes de hard- 
copies graphiques (une verticale et une 
horizontale). La hardcopie de caractères 
et les impressions en tailles géantes 
feront l'objet du prochain chapitre de 
notre chronique dans CPC. 


MEMOIRE ECRAN, 

CARACTERES ET SCROLLING 

Nous allons décrire brièvement la 
mémoire écran et la mémoire alphanu- 
mérique contenant les matrices de carac- 
tères visualisables. 


Mémoire écran 

La mémoire écran est en banque O dans 
l'environnement PCW. Nous verrons au 
paragraphe suivant comment une routine 
en langage machine nous permettra d'al- 
ler la lire. Son adresse de départ est 
&H5930. Sa taille est de 32 lignes, de 
90 caractères composés de 8 octets 
chacuns, soit une résolution de 
256 points en vertical et de 720 points 
par ligne. Sa taille totale est donc de 
32xX90x8 = 23 040 octets. On en 
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déduit bien sûr que le dernier octet de la 
mémoire écran est situé en B32F. 
L'organisation de la mémoire respecte 
l'image de ligne : l'adresse la plus basse 
concerne la ligne du haut de l'écran, et 
le caractère le plus à gauche (voir 
figure 1). Les 8 octets suivants concer- 
nent le second caractère de la même 
ligne, et ainsi de suite. La figure 1 ras- 
semble ces éléments et on y trouve les 
quelques formules permettant de relier 
les coordonnées graphiques à l'adresse 
de l'octet de la mémoire écran 
concernée. 


Mémoire alphanumérique 

La mémoire alphanumérique contient les 
256 x 8 octets décrivant les caractères 
visualisables. Cette zone commence en 
&HB800, en banque O aussi. Par exem- 
ple, les 8 octets décrivant le caractère 
‘’A"" (code ASCII 42 en hexadécimal) se 
situent à partir de l'adresse. 

&hBAO8 = &HB800 + 8 x (&h42-1) 
Nous avons bien utilisé, avec intention, 
le qualificatif de ‘’visualisable’’, et non 
imprimable. || Y a concordance entre le 
jeu de caractères imprimables et le jeu 
de caractères visualisables pour ceux 
dont les codes ASCII sont compris entre 
32 et 127. Vous pouvez vous reporter 
au livre du CP/M pour plus de précisions 
sur les possibilités d'extensions du jeu de 
caractères destiné à l'imprimante. 


Mémoire de scrolling 

Les indications précédentes concernant 
la correspondance entre la géométrie de 
l'écran et les adresses mémoire ne sont 
valables qu'après réinitialisation de 


l'écran, en l'absence de scrolling verti- 
cal où horizontal. Nous n'allons pas 
décrire ici la mémoire de scrolling car la 
place nous manquerait. || nous suffira de 
savoir que les emplacements mémoire 
allant de B600 à B7FF en banque O sont 
réservés à la description du scrolling ver- 
tical. Nous utiliserons ici principalement 
le mot situé en B600: cette valeur per- 
met de retrouver le nombre de décalages 
verticaux dans l'écran courant par la for- 
mule suivante : 


VPEEK ( B600 ) - &h2C98 


Hb de décalages = 


ACCES A L'ENVIRONNEMENT ECRAN 
Les concepteurs du système d'exploita- 
tion CP/M ont prévu des jumpblocs de 
fonctions accessibles à l'utilisateur. L'un 
d'entre eux, le BIOS fournit une fonction 
bien spéciale appelée USERF. Elle per- 
met, en particulier, l'accès à la ban- 
que O. Dans ce cas précis, la USERF 
prend comme caractère IN LINE (les 2 
octets suivant les octets d'appel) la 
valeur O0C9. D'autres valeurs de ce 
paramètre IN LINE permettent laccès à 
d'autres fonctions (utilitaires disque, 
clavier...). 

Nous allons détailler ici la façon de pro- 
céder : l'adresse d'implantation de la 
routine USERF est FC5A sur les PCW. La 
partie de registre BC doit contenir à l'ap- 
pel l'adresse de la fonction à exécuter en 
banque O0. Cette adresse doit être supé- 
rieure à COO0. Les listings 1 et 1” 
(assembleur et basic) du programme 
ECRAN illustrent cette façon de procé- 


Listing 1 : ECRAN, BAS 


100 MEMORY &HEFFF 

110 DATA 8h01 ,8h09,8hF0, &hCD, Ah5A, &hFC, &hES, Bh00 
120 DATA 8hC9, 8h21 ,&h30,&h59, HO! ,8hFF ,&h59,&h1E 
130 DATA 8h55, 4h73, 8h08, &h23,&hAF ,&hB9, 8h20, &hF9 
140 DATA 4hB8,4h20,&hF6, &hC9 

160 FOR i=8HF000 TO 8HF000+27:READ n:POKE i,n:NEXT 
160 routtz8HF000:CALL routf 

170 IF INKEYS="" THEN 170 


F000 01 09 FO LD BC,ECRA 

F003 CD SA FC CALL USERF 

FO06 E9 00 DEF 00E9 Paramètre in line 
F008 C9 RET 

F009 21 30 59  ECRA: LD HL,5930 Début nénoire écran 
FO0C O1 FF 59 LD BC,59FF Longueur nénoire écran 
FO0F IE 55 Lo E,55 Octet de reuplissage 
FOIl 73 BEC: LD CHL),E 

F012 08 DEC BC 

F013 23 INC HL 

FOl4 AF XOR À 

FOIS 89 œP € 

F016 20 F9 JR  N2,BEC Boucle 

F0i8 B8 CP 8 

F019 20 F6 JR  N2,BEC Boucle 

FOIB C9 RET 
Listing 2 ; LETTRE.BAS 


10 MEMORY 4HEFFF 

20 DATA 4h01, 8h09, 4hF0,8hCD, &h5A, &hFC ,8hE9, &hO) 
30 DATA &hC9, 8h21 ,8h08, &hBA, 8h06, &hOB, 8h3E , 8hFF 
40 DATA &h77,4h23,8h10,8hFC,8hC3 

50 FOR i=4HF000 TO &HFO00+20:READ n:POKE n,i:NEXT 
60 routxz4HF000:CALL routi 

70 PRINT "AAAAAAAAA" 


Listing 2'_; LETTRE. ASS 

F000 01 09 FO LD BC,LETT 

F003 CD SA FC CALL USERF 

F006 E9 DEFW 00E9 Parasetre in line 
F008 C9 RET 

F009 21 08 BA  LETT: LD HL,BAOB Adresse caractere À 
F00C 06 08 LD B,08 

FO0E GE FF LD A,FF Octet de raplissage 
F010 77 BLE: LD (HL),A 

FOI 23 INC HL 

F012 10 FC DJN2 BLE Boucle 

FOI4 C9 RET 
Liating 3 ; HARDCOP, BAS 


100 HEMORY 4HEFFF 

10 * 

120 ' Codes de la routine de copie (cran 

130 ‘ 

140 DATA 4h7E, 8h23, &h66, &h6F ,8hEB,8h7E 4h23, &h66 
150 DATA &h6F ,8h0a, &hFE 4h00, 4h28, 8h12, 8h01 , &h52 
160 DATA &hF0,8hCD, &hSA,&hFC, &hE9, 4h00, &hC9, &h06 
170 DATA &h08,8h1A,8h1B,8h77,&h23,8h10,8hFA, &hC9 
180 DATA 4h01 ,8h64,8hF0,&hCD, &hSA, &hFC, &hE9, &h00 
190 DATA 4hC9,8h0E, &h08, &h1A, &h13,8h06,&h08,hES 
200 DATA 8hCB,4h27,8hCB, 4h16, 4h23, 8h10,8hF9,&hEl 
210 DATA &n0D,&hAF ,&hB9, 4h20, 4hEE , &hC9 

220 FOR i=&HF000+59 TO AHFO00+120:READ n4:POKE à ,n4:NEXT 
230 ‘ 

240 ' Codes de la routine d'impression 

250 ‘ 

260 DATA 8hES,BhES,BhES, BhOE, BhOS,&h1E ,&h1B, &hCD 
270 DATA 8h0S,8h00,8h1E ,&h4B, &hOE 8h05, &hCD, &h0S 
280 DATA 8h00,8hE1 ,BhSE, BhOE ,&hOS , &hCD, EhOS , &h00 
290 DATA 8hE,8h23,8hSE, &h0Ë , &h0S, &hCD, 8h05, &h00 
300 DATA 4hE 1 ,8h4E ,&h23, 8h46 4h21, 8h00, &hF1 ,&hCS 
310 DATA &h0E,8h0S,BhES, &hSE, &hCD, 8h05, &h00 ,&hE 1 
320 DATA 8hC1,8h23,8h0B, &hAF ,&hB9, 8h20, &hF0, &hB8 





330 DATA 4h20 ,8hED,&hC9 

340 FOR iz8HF000 TO 8HF000+58:READ n'POKE i,n:NEAT 

350 ‘ 

360 Codes de la routine de calcul de scrolling 

370 ‘ 

380 DATA 4h01 ,8h82,4hF0,8hCD, &hSA,8hFC , 8hE9, &h00 

390 DATA &hC9, 8h34, 8h00, &hB6, 8h32, 8hFE ,&hFO, &h3A 

400 DATA 8h01 ,8hB6, &h32,8hFF,&hF0, &hC9 

410 

420 ‘ Initialisation et calcul du dcalage vertical 

430 ‘ 

440 FOR i=4HF000+121 TO 8HF000+142:READ n:POKE i,n:NEUT 

450 decal=4HF079:CALL decal#:decA=(PEEK(AHFOFE )+2S6PEEK(AHFOFF )-8H2C98)/360 
460 LPRINT CHR$(27)+"A"+CHRS(8) 

470 ‘ 

480 ‘ Hardcopie graphique 

490 ‘ 

500 INPUT “ Mode hardcopie desiree : © ou |" node 
S10 IF mode#=0 THEN 60T0 670 

520 ‘ 

530 Hardcopie horizontale 

S10 ‘ 

50 POKE RHFOOB, &H4C 

560 trs#=8HF03B : inpt=&HF 000 

570 nent=8hF 100 :sens4=0 : nonb4=720 

580 FOR jH=dec4 TO decf+30:jj42)4:1F jj4)232 THEN j542554-32 
590 nent=8HF100:ecc=8H5930+(1j4+1)2720 

600 FOR ifs1 T0 90:ec#=UNT(ecc):CALL trstlect,nen,sensh)'ecc=ecc+8:nent=nentt8:NEUT if 
610 CALL inp#(noabf) :LPRINT 

620 NEXT j4 

630 LPRINT 

640 ' 

650 ‘ Hardcopie verticale 

660 ‘ 

670 POKE 4HFOOB,&H4B 

680 tra%=4HF03B: inp#=kHF 000 : sens4=1 :nonbt=256 

690 FOR j#=1 TO 90:menf=8HF108+dec 118 :ecc=hHB067+( j4-1)18+66536! 
700 FOR i%z1 T0 32:ec#=UNT(ecc):CALL trskec#,nent,sensh) 'ecctecc-720 
710 nenkenent+8: IF neaÿ=&HF200 THEN nent=8HF 100 


720 NEXT if 

730 CALL inp#(nombf):LPRINT 

40 NEXT j4 

750 LPRINT 

Listing 3° ;: HARDCOP.ASS 

F000 ES MP: PUSH HL lapression graphique 
F001 ES PUSH HL Sauvegarde paramètres 
F002 ES PUSH HL 

F003 0E 05 LD C,05 Envois de séquences ESCAPE 
F00$ IE 1B LU E,I8 

F007 CD 05 00 CALL B00S 

FO0A JE 48 LD E,4B 

FOUC 0€ 0S LD C,06 

F00E CD 05 00 CALL 800$ 

FOIl El POP HL 

F012 SE LO E,CHL) Nonbre d'octets 

F013 0€ 05 LD C,05 

FOIS CD 05 00 CALL 800$ 

F0I8 El POP HL 

F019 23 INC HL 

FOIA SE LD E,CHL) 

F0IB 0€ 05 LD C,05 

FOID CD 05 00 CALL 800$ 

F020 El POP HL 

F021 4E LD  C,CHL) 

F022 23 INC HL 

F023 46 LD B,CHL) 

F024 21 00 FI LD HL,F100 Début de la zone de données 
F027 CS BIWP: PUSH BC 

F028 0E 05 LD C,05 

F024 ES PUSH HL 

F028 SE LD E,CHL) 

F02C CD 05 00 CALL BD0S 

F02F El POP HL 

F030 C1 POP BC 

F031 23 INC HL 

F032 0B DEC BC 

F033 AF OR À 


000 
73 

















F034 B9 CP € 
F035 20 FO JR N2,BIMP Boucle N 255 
F037 BB œP RE 
F038 20 ED JR N2Z,BIMP Boucle 
FO3A C9 RET ; 
F038 7E TRSF: LO A,CHL) Routine de transfert 254 
FO3C 23 INC HL 
F030 66 LD  H,CHL) 
FO3E 6F LD L,A L': Adresse ménoire écran Y 
F03F EB EX  DE,HL 
F040 7E LD A,CHL) 
F041 23 INC HL 
F042 66 LD H,CHL) 
F043 6F {D L,A HL : Adresse mémoire commune | 0 
F044 OA LD A,(BC) A: Sens d'extraction 
F045 FE 01 CP 00 
F047 28 12 JR 2,550 Sens horizontal 
F049 01 52 F0 LD BC,RSSI 
FO4C CO SA FC CALL USERF Aopel 810$ 
: " es Je PORRIRR Re EME X : abcisse du point géométrique 
FOS2 0608  RSSI: LO 8,08 Transfert simple O<X<719 | | 
FOS4 A BRSI: LD A,(DE) de 8 octets Y : ordonnée du point géométrique 
F055 18 DEC DE O<Y<255 
F0S6 77 LD (CHL),A = FIX ((255-Y)/8) et Y2 = (255-Y) 
F057 23 INC HL mod 8 
F058 10 FA OJN2 BRSI X1 = FIX (X/8) et X2 = X mod 8 
FOSA C3 RET | L'adresse de l'octet contenant le point 
a u : L SS0: 1 us Transfert avec rotation est donnée par : 
— * * 

F061 E9 00 DEFW 00E9 Paramètre in line ADD = 5930 + 8 * (Y1*5A + X1) 
F0$2 C9 RET + Y2 
FO64 OE O8  ARRSSO: LD C,08 Conpteur octets masque = 2 1 (8-X2) (octet dont le seul 
F066 IA BRS! LD  A,(DE) bit à 1 représente le point cherché). 
F067 13 INC DE 
F068 06 08 LD 8,08 Compteur rotations 
FOSA ES PUSH HL 
FO68 CB 27  BRSO: SLA À YIUP 
FOS0 CB 16 RL  (CHL) 650 ‘ Hardcopie verticale , L 
F06F 23 INC HL ; : RIVE 19 RE 
F070 10 F9 DINZ ERSO scie scie FRE RS ED à sm ligne: 1 1 LF FF | Listing 1 Senseur:Arr | Hex:ärr | RESET 
F072 El : POP HL 680 trs/=&HF09B : 1mp4=&HF000 : sens/=1 :nonb/=256 

690 FOR ÿ2=1 10 90 :men/= RENE ET ecc=4HB067+(J/-1)#9+65536! 
F073 00 DEC C 700 FOR 1%=1 I0 38:ec/=UNI(ecc):CALL trs4(ec/,menz, sens) :ecc=ecc-700 
FO74 A {OR À 79 nenu=nenxtÜ:1F nentzàhr 206 THEN nen/.=AHE 100 
F075 BJ €P € 7 GALL in np (nomb) :LPRINT 
F076 20 EE JR NZ,ERS Boucle octets 
F078 C9 RE GE Lin 
F079 0182 F0 DECAL: LO BC,DEC Transfert du not de 8600 for 1=1 to 16:for j=1 to 16:print chri((i-1216+5-19#" “;inext ginext 
F07C CD SA FC CALL FCSA . “#4 #1 7 MO} ME 
F07F  E9 00 DEFN O0E9 LÉ LANBCREErS k 
FO C9 RET nn op 4 à Ds DRE j 
F082 3A 00 86 DEC: LD A,(8600) Poids faible R { à ï j : = + ï i 9 : 
F085 32 FE FO LD (FOFE),À ÿ ù 0 4 È £ € à 2 à £ { 
F088 3A 01 86 LD A,(8601) Poids fort a 1 à ù a uù \ o n ô 5 
F088 32 FF FO LD CFOFF) A" Fin 
FOSE C9 RET Ms hardcopie desiree 


run | 
Mode hardcopie desiree 
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der sur un cas concret : 
de la mémoire écran. La routine princi- 
pale est installée en F000. L'adresse de 
la routine ECRA est chargée dans le 
registre double BC (F009), avant appel 
à USERF. Vous pouvez changer à loisir 
la valeur de l’octet de remplissage, et 
examiner le résultat obtenu. 


HARDCOPIES GRAPHIQUES 

Nous allons maintenant passer aux cho- 
ses sérieuses, l'écriture complète de ces 
routines de recopie dont on parle depuis 
un certain temps. 

Le mois dernier, nous avions distingué 
deux modes de fonctionnement de l’im- 
primante en graphique : 

— le mode normal, à 480 points par 
ligne. Nous l'avons réservé à la recopie 
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la mise en gris, 


d'écran en vertical sur 256 points, et lon- 
gue de 720 points (90 lignes) ; 

— le mode condensé à 960 points par 
ligne. Il permet la recopie horizontale de 
l'écran (largeur 720 points) sur une hau- 
teur de 256 points (32 lignes). 

Les listings 3 et 3’ du programme HARD- 
COP (assembleur et basic) que nous 
allons commenter maintenant vous offri- 
ront ces deux possibilités. 


Langage machine HARDCOP.ASS 
(listing 3) 

Il se décompose en trois grandes 
parties : 

— IMP de FO000 à F03A : Cette routine 
a déjà été vue et commentée dans notre 
précédent article. Elle permet l'impres- 
sion de données graphiques dont le nom- 


bre d'octets est passé en paramètre ; 
— TREF de FOOB à FO7A : Cette routine 
est l'outil principal des hardcopies gra- 
phiques. Elle permet le transfert d'un 
groupe de 8 octets de l’environnement 
écran vers une zone en mémoire com- 
mune. On passe trois arguments en 
entrée : l'adresse de départ en mémoire 
écran, l'adresse d'arrivée en mémoire 
commune et le sens qui détermine si on 
effectue ou non une rotation de ce 
groupe d'octets (SS1 ou SSO) ; 

— DECAL de F079 à FO8E : Ce sous- 
programme permet le simple transfert du 
contenu du mot en B600 vers l'adresse 
FOFE. On déduit de cette valeur le nom- 
bre de lignes de décalage de l'écran. 
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Figure 3 
Hardcopie verticale 





Langage Basic HARDCOP.BAS 
(listing 3°) 

La première tâche de ce programme est 
d'installer le code machine en mémoire 
centrale. À partir de la ligne 500, on peut 
effectuer une hardcopie verticale ou hori- 
zontale de l'écran courant (figures 2 et 
3). Vous remarquerez la façon de calcu- 
ler les adresses écran autorisant le 
balayage dans les deux sens de la 
mémoire. 

Bien entendu, ces petits programmes ne 
sont que des exemples. Plusieurs possi- 
bilités s'offrent à vous pour les utiliser : 
l'écriture entière des hardcopies en lan- 
gage machine pour augmenter la vitesse 
(relativement simple), l'incorporation de 
ces hardcopies dans vos propres pro- 
grammes, les hardcopies partielles 
d'écran rendues faciles par notre décour- 
page de l'écran en ligne-colonne ou de 
nouveaux formats finaux par exemple. 
Le mois prochain, nous parlerons plus 
précisément des hardcopies en caractè- 
res et d'impressions de chaînes de carac- 
tères dans un format un peu spécial. En 
attendant, à vos claviers ! 


A SUIVRE 


POLY- 
PROGRAMMES 
DE POLISOFT 


Noël LAGNEU 


olisoft est un éditeur français qui nous vient de la Gironde. Il 

faut noter que poly de SA Prcgromnes a le sens de multiple, 

alors que POLI se POLISOFT provient du nom d’un dirigeant de 
cette société. Celle-ci se présente comme spécialiste des logiciels pro- 
fessionnels sur toute la gamme AMSTRAD (CPC, PCW et PC) et comme 
importateur exclusif en France des produits PRIDE, UTILITIES, WIGHT 
SCIENTIFIC et ARCOM SOFTWARE. Ce dernier est d’ailleurs l’auteur 
des polygrammes version anglaise. 











Mais. venons-en à ces utilitaires eux- 
mêmes : 

Cet ensemble est constitué de quatre 
programmes : POLYPRINT, clé de voûte 
et lien logiciel avec les autres produits de 
la gamme, est un logiciel d'impression 
multipolices permettant une mise en 
page aisée de textes ASCII. POLYWORD 
est un traitement et textes générant des 
fichiers ASCII relativement courts et per- 
mettant leur impression en police nor- 
male. POLYMAIL, troisième de la série, 
permet de gérer de petits fichiers desti- 
nés à l'édition des courriers personnali- 
sés, de circulaires ou d'étiquettes. Enfin, 
POLYPLOT vous offre la possibilité de 
créer des graphismes, en utilisant diver- 
ses polices de caractères dans la com- 
position des légendes. 

Cet ensemble de logiciels présente cer- 
taines caractéristiques intéressantes qui 
en font un outil important : 

— la compatibilité CP/M est tout à fait 
appréciable pour l'ouverture de ces uti- 
litaires vers d’autres programmes et pour 
le maniement de l’ensemble sur 
disquettes ; 

— des points primordiaux oubliés sur 
LOCOSCRIPT sont maintenant solution- 
nés : mailing, nouvelles polices de carac- 
tères, graphismes... ; 

— la modularité de l’ensemble se réper- 
cute sur les possibilités d'acquisition : on 
peut acheter polyprint et polyword 
(490 F TTC) pour éditer des publicités ou 
des tracts, polymail et polyword pour le 
mailing (460F TTC), polyplot seul 
(460 F TTC) ou l'ensemble des polypro- 
grammes (1 186 F TTC). 

Chaque programme est livré avec une 
notice très claire. La simplicité d'utilisa- 
tion de ces logiciels est tout à fait épous- 
touflante. 20 minutes suffisent à une 
première utilisation ! 

Pour vous guider dans votre estimation 
de ces logiciels, nous allons les décrire 
succinctement ainsi que les liens existant 
entre eux. 


POLYWORD 

C'est l'éditeur de document de la 
gamme. Sa comptabilité CP/M le rend en 
lui-même très intéressant. 

Au lancement du programme, plusieurs 
options sont proposées : 

— le catalogue de la disquette du lec- 
teur courant (également accessible par 
la touche F3) ; 

— le changement de lecteur courant 
(A:, B: ou M:) (même effet obtenu par 
appui sur F5) ; 

— la suppression d'un fichier de la dis- 
quette possible aussi via la touche F8, 
ou le changement de nom via la touche 
F7 ; 

— la touche F1 est réservée à l'activa- 
tion du menu d'impression. Celui-ci se 
présenté sous forme d’un choix entre dif- 
férentes possibilités : l'impression en 
elle-même, le choix entre qualité courrier 
ou listing, la validation de la justification, 
la mise en page et l'édition par fusion de 
fichiers avec POLYMAL ; 

— l'édition d'un document, y compris 
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sa création. POLYWORD présente à ce 


niveau quelques caractéristiques tout à 
fait originales : 

e les déplacements dans le texte, la 
recherche ou la refonte de paragraphes, 
etc. peuvent être obtenus par les tou- 
ches spécialisées (comptabilité LOCOS- 
CRIPT) ou par les combinaisons avec la 
touche ALT (comptabilité WORDST AR) ; 

e_il est possible de passer du mode 
insertion au mode OVERWRITE ou 
SURIMPRESSION ; 

e le word wrapping est toujours 
actif : la frappe se fait au kilomètre, sans 
souci de retour à la ligne. Toutefois, on 
peut forcer un retour à la ligne (RETURN) 
en fin de paragraphe. Une option intéres- 
sante à ce niveau est le toggle Hard 
Returns, on bascule de saut de ligne par 
appui sur ALT et U : tous les retours cha- 
riots de fin de ligne sont inversés. Les 
Hard Returns sont effacés et les lignes 
se terminant sans return s'en voit pour- 
vues. (surtout utile avec les fichiers 
ASCII provenant de LOCOSCRIPT...) ; 

e les tabulations sont fixes, et posi- 
tionnées tous les 8 caractères ; 

°_on peut insérer des caractères spé- 
ciaux en le spécifiant par leur code 
ASCII. Les accents spéciaux peuvent 
être insérés sur tous les caractères par 
utilisation de la touche EXTRA. 


POLYPRINT 
Ce logiciel est tout à fait inédit en France 
sur PCW. Seul TASSWORD 8000 per- 
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mettait une approche de l'impression 
multipolices. Alors que LOCOSCRIPT 
s'était fait une spécialité du changement 
de pas de caractère dans la même fonte, 
POLYPRINT permet, au contraire, d'uti- 
liser 25 polices de caractère (pour l'ins- 
tant, dont 8 livrées avec le programme, 
et les suivantes à acheter séparément), 
avec une facilité d'utilisation tout à fait 
impressionnante. 

Au lancement, les possibilités classiques 
apparaissent à l'écran : choix du fichier 
texte, de la police, par défaut, de la mise 
en page générale, lancement de l'impres- 
sion ou abandon du programme. Les 
fichiers imprimables par POLYPRINT peu- 
vent être issus de tout traitement de 
texte générant des fichiers ASCII, POLY- 
WORD en particulier évidemment. 
Ces fichiers peuvent comporter 
macro-commandes suivantes : 

— *C pour centrer le texte ; 

— *U pour souligner le texte ; 

— *W pour doubler la largeur de la 
ligne ; 

— *P pour commencer une nouvelle 
page ; 

— *Tn pour changer la police ; 

— *Ln pour changer la taille de la 
marge ; 

— *Jn pour changer la taille de la 
justification. 

Toutes ces possibilités peuvent être 
diversement combinées. On obtient ainsi 
un outil impressionnant pour l'édition de 
tracts, de publicités, de catalogues. 


les 





POLYMAIL 

Ce logiciel est conçu pour assurer la ges- 
tion de fichier nécessaire à un mailing. 
Nous avons vu que POLYWORD était 
capable à lui seul, d'assurer l'impression 
de lettres circulaires ou d'étiquettes, 
reprenant les renseignements contenus 
dans ces fichiers. 

Chaque fichier adresse peut contenir 
jusqu'à 100 fiches, et est constitué de 
2 fichiers logiques sur la disquette. L'un, 
avec extension PMC ne contient que les 
titres des fiches sur 20 caractères au 
maximum (fichier index}. Le second avec 
extension PMA, contient la totalité des 
renseignements. Chaque fiche contient 
12 rubriques de 30 caractères chacune, 
référencées de A à L. Le classement des 
fiches peut être alphabétique ou chrono- 
logique. Un intérêt majeur dans l'éditeur 
des fiches est la possibilité de travailler 
comme avec le traitement de texte 
POLYWORD (touches de curseur, dépla- 
cements fiches à fiches, mode inser- 
tion/surimpression...). La recherche 
d'une fiche se fait d'après le catalogue 
des fiches présenté à l'écran. On peut 
bien sûr supprimer, créer, actualiser cha- 
que page d'informations. Ô 
L'utilisation dans POLYWORD est encore 
d'une simplicité enfantine : chaque rubri- 
que contenue dans une fiche est codée 
dans le texte du document par le signe 
‘‘&'' suivi de la lettre représentant la 
rubrique choisie. Par exemple, si les 2 
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premières rubriques de votre fiche sont 
NOM, SOCIETE, (options par défaut), les 
simples mentions, &A et &B dans votre 
document seront remplacées, à l'édition, 
par les contenus des rubriques A et B de 
la fiche, c'est-à-dire le nom et la société 
concernés ! 

L'édition sélective a aussi été prévue : le 
catalogue des fiches s'édite à l'écran, et 
on ‘‘’marque’’ chacune des fiches souhai- 
tées. Même des documents ne compor- 
tant que des références rubriques &A, 
&B sont valides (idéal pour:les étiquet- 
tes !). Une autre application immédiate 
est l'impression multicopie d'un docu- 
ment standard, sans référence du tout 
au contenu des fiches, dont le nombre 
sera le nombre de copies désirées. 


POLYPLOT 

Enfin, je vous présente le petit dernier 
mais non le moindre de la gamme. 
Comme son nom l'indique, il permet l'im- 
pression de graphismes. Le format d'im- 
pression est le format A4. Titres et sous- 
titres, globaux ou attachés aux ordon- 
nées où aux abcisses, peuvent être spé- 
cifiés dans l’une quelconque des polices 
de caractères présentes sur la disquette. 
Les données de base du graphisme sont 
à entrer à la main pour chaque gra- 
phisme. On peut présenter simultané- 
ment un maximum de 4 groupes de 20 
données chacun. Les types de graphis- 
mes sont lignes, histogrammes et 


camemberts (ou secteurs). On peut 
constater de grosses similitudes avec 
GRAPHIC ASSISTANT d'IBM pour com- 
patibles PC. Une fois les données saisies, 
on peut bien sûr les sauvegarder et les 
rappeler. Les extensions de ces fichiers 
sont alors obligatoirement .PPL. 

La taille des graphiques obtenus en pixels 
sont de 960 x 700. Ceci explique la qua- 
lité finale obtenue, mais aussi le temps 
de calcul et d'impression. 

En conclusion, l’ensemble de ces pro- 
duits constitue un outil à la fois très puis- 
sant et très simple d'utilisation. Ces logi- 
ciels trouveront leur place dans la biblio- 
thèque de tous les possesseurs de PCW 
attirés par de petites applications de mai- 
ling, de graphismes, de composition ou 
même de traitement de texte. 

Les puristes nous objecteront, bien sûr, 
les limites de tous ces produits : traite- 
ment de texte vraiment de base, incom- 
patibilité du graphisme-et des sorties de 
tableurs, mailing sélectif pas du tout 
sophistiqué, etc. 

Mais la qualité de l'intégration de ces 
logiciels, la clarté de la documentation et 
la souplesse d'utilisation sont des quali- 
tés compensant largement ces 
limitations. 

Après tout, qui fait du mailing sur 5000 
adresses à longueur de journée ou du 
graphisme plein les murs, trouvera for- 
cément un outil mieux adapté à son pro- 
blème spécifique. 


MERCURE DE ELP 


LP, auteur et éditeur de FICHES dont nous avons parlé danc CPC 
de décembre 86, récidive en nous proposant cette fois toute 


autre chose : un logiciel de gestion de représentant de com- 
merce avec fichiers fournisseurs, clients et articles, statistiques, cri- 
tères et éditions de commandes et bons de livraison. Et, c’est bien 


connu, c’est dans les vieux pots qu’on fait la meilleure soupe. 


Comme son prédécesseur FICHES, MER- 
CURE a un look LOCOSCRIPT pro- 
noncé : lignes de commandes en haut de 
l'écran, touches spéciales du PCW... 
L'ensemble contribue à donner un pro- 
gramme très agréable et simple à utiliser. 
Par exemple, dans tous les menus où ces 
options ont un sens, la touche F1 est 
réservée à la saisie, la touche F3 à la con- 
sultation, la touche F5 à la liste, la tou- 
che F7 à l'impression, etc. 

Pour mieux mesurer les possibilités et 
limites de ce logiciel, nous allons décrire 
par le menu les différents fichiers. 

— le fichier représentant contient les 
références possibles de celui-ci et les 
codes qu'on lui a attribués ; 

— le fichier fournisseur inclut les infor- 
mations du fichier précédent, plus la 
commission accordée généralement ; 


— le fichier client est nettement plus 
étoffé : références postales et nom de 
l'acheteur dans la société, références 
bancaires, éléments statistiques sur le 
magasin, les remises, les dates de 
visites; 

— le fichier article contient pour chaque 
élément la désignation, le prix, le condi- 
tionnement, le code, la famille et le 
groupe. Ces deux derniers éléments sont 
bien sûr prévus à fin de statistiques ; 
— pour chaque commande, l'en-tête 
contient le code commande, la date, le 
client, le fournisseur, le code représen- 
tant... La saisie des lignes est très sim- 
ple : on ne demande que le code article 
et la quantité ; 

— chaque commande est suivie par 
l'édition d'un ou plusieurs bons de livrai- 
son, avec les dates effectives, et la pos- 


sibilité de faire plus tard des statistiques 
sur commandes ou sur livraisons. 

Les traitements statistiques donnent sa 
pleine puissance à ce logiciel : à la sélec- 
tion de ce choix de travail, on doit opter 
pour un sujet de statistiques (article, 
client, fournisseur...) et en entrant des 
valeurs mini et maxi pour tous les sujets ! 
La puissance de ce travail est impression- 
nante : on peut faire des statistiques sur 
un groupe d'articles entre deux dates et 
pour un certain nombre de clients ! De 
plus, ces informations peuvent être obte- 
nues sur écran ou imprimante, sur com- 
mandes ou livraisons, avec ou sans 
détails (historique), et avec ou sans 
commissions. 

Sans prétentions comptables, ce logiciel 
sera une aide précieuse pour tous repré- 
sentants de commerce, mono où multi- 
cartes. Les tailles de fichiers permettent 
la gestion de 50 clients, 10 articles, 300 
commandes, 1500 livres de commande 
avec un seul lecteur. Ces quantités peu- 
vent être respectivement portées à 100, 
1000, 500, 5000 (ou encore à 100, 
1000, 1500, 5000) pour un utilisateur 
du PCW 8512. Il peut être adapté aux 
agents commerciaux d'une” société 
(monofournisseur), ou aux acheteurs 
(monoclient) par exemple. Les qualités 
importantes de ce programme, mise à 
part la puissance de ses traitements, 
concernent sa facilité d'utilisation et la 
qualité de sa documentation. 
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GEM JT BASEE 


Denis BONOMO 


fastidieuses à effectuer. Il est donc normal que la famille d’ap- 


Te sous GEM est un plaisir car il y a peu de manipulations 


plications s’agrandisse. Les inconditionnels de ce système d’ex- 
ploitation seront heureux de découvrir une gestion de base de don- 
nées ; GEM JT BASE. Ét quand on vous aura dit que, de plus, ce logi- 


ciel est francais. 


GEM JT BASE se compose de 2 grandes 
parties : le Générateur de masques, per- 
mettant la création de la grille de saisie 
et le programme principal assurant la 
gestion des données du fichier, JT BASE. 
Après une installation des plus classi- 
ques, familière aux utilisateurs des logi- 
ciels de la gamme GEM, on commencera 
par définir le masque de saisie. Cette 
opération s'effectuera le plus simplement 
du monde, en plaçant, comme on le 
ferait sur une feuille de papier, les difé- 
rentes rubriques. Celles-ci pourront être 
du type TITRE, NUMERIQUE ou ALPHA- 
NUMERIQUE, en fonction des données 
qu'elles contiendront. Les couleurs de 
caractères et les trames de fond peuvent 
être choisies par l'utilisateur. Une fois 
défini, le masque pourra être sauvegardé 
et même, imprimé. 

JT BASE utilisera le masque créé précé- 


demment. À chaque masque correspon- 
dra un fichier particulier. Les modes de 
travail sur un fichier sont de 2 types : 
fiche ou ensemble de fiches. 

En mode ‘’fiche”’, les opérations réalisa- 
bles sont : la création, la correction, la 
suppression et la recopie d'une fiche sur 
imprimante. 

En mode ‘‘ensemble de fiches’”, on accè- 
dera aux opérations de classement, 
transfert, sauvegarde, etc. 

Couplé à GEM WRITE, GEM JT BASE 
permet de réaliser des mailings. La let- 
tre type créée par le traitement de texte 
récupère les.informations prélevées dans 
le fichier. On peut également imprimer 
des étiquettes. 

Dans sa version AMSTRAD, JT BASE ne 
permet pas d'effectuer des calculs 
numériques. 

GEM JT BASE permet d'importer ou 
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Kom : PIERRE Funero : 


Que FU IN ÉCER | Panne 


iche Prec, 






1CNe JU1V, 


exporter des fichiers conçus pour dBASE 
Il ou dBASE Ill ou encore, écrits directe- 
ment en ASCII. 

Avec une capacité de 65535 fiches pou- 
vant contenir jusqu'à 128 rubriques de 
4000 caractères, GEM JT BASE devrait 
trouver bon nombre d'utilisateurs parmi 
tous ceux qui n’ont pas besoin d'un lourd 
gestionnaire de fichiers. Le manuel qui 
accompagne la disquette nous a paru 
fort bien conçu. Gageons qu'en le sui- 
vant pas à pas, l'utilisateur ne rencon- 
trera aucun problème majeur lors de la 
mise en œuvre du logiciel. 


GEM JT BASE de JT Diffusion. Tél. (1) 
45.01.74.50. 
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DAS RCA P 3-4 MALUS F 5-6 RMUUM F 7-0 QUE NO ES 


Comme son nom l'indique, G-P Il est un 
programme de gestion qui permet de sui- 
vre les stocks, les ventes, les achats, les 
clients. En plus de cette gestion essen- 
tielle dans une entreprise, G-P Il permet 
d'éditer les factures, les devis, les trai- 
tes, le fichier des clients sur étiquettes. 
Il permet aussi d'établir la déclaration de 
TVA et de connaître par une récapitula- 
tion des HT, TVA et TTC les ventes et 
les achats sur une ou plusieurs périodes. 
— Facturation : très puissante, elle per- 
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met d'établir des factures liées ou pas 
avec le stock. Possibilité de coder 30 
taux horaires différents. 

Ventilation par TVA automatique, capa- 
cité de 50 lignes sur 2 pages avec en- 
tête personnalisée, commentaire sur la 
facture (Ex. : devis) et adresse pour 
enveloppes à fenêtre. Numérotation 
automatique. 

— Gestion : récapitulation générale des 
ventes et achats qui donne le HT, le TTC 
et la TVA due en fin de mois. 

Avec en plus une récapitulation par TVA. 
Possibilité de tri parmi les 1000 lignes 
d'écriture, avec, remise à jour, mois 
actuel, mois précédent, mois avec 
report. 7 types de règlement, 5 codes de 
TVA. 

— Stock: multi-renseignements sur 
chaque fiche : le mini, en commande, le 
paiement, le rangement, le cœfficient, 
etc. la longueur de la référence est de 20 
caractères. Permet le stockage de 2000 
articles en moyenne pour le (PCW 8512). 
2 critères de recherche. 


— Suivi clients : fiche complète, 2 cri- 
tères de recherche, C.A. par clients 
mode de paiement, commentaire, etc. 
500 clients de moyenne en compte PCW 
8512 pour 2000 articles en stock. Et 
plus suivant la capacité de l'ordinateur. 
— Devis : fonctionne comme la factu- 
ration sans mouvementer le stock. 

— Traites : fichier qui permet de gérer 
les traites émises sur ventes et achats 
et d'éditer une liste des soldes dus. 

— Mailing : grâce à son tri puissant, 
cette fonction permet d'éditer les éti- 
quettes du fichier clients. 

Ce produit, testé par plusieurs chambres 
de commerce, est un outil indispensable 
pour une bonne gestion d'autant qu'il est 
compact et rapide car écrit en Turbo Pas- 
cal. Son prix de 996 F TTC est tout à fait 
convainquant. Pour tous renseigne- 
ments, s'adresser à ARKENTIEL au 
33.67.35.38. 


Florence MELLET 


TOUS VOS LOGICIELS DE JEUX OU UTILITAIRES 
POUR CPC, PCW A PRIX DEMENTIELS !!1! 


AVANT D'ACHETER AILLEURS, 


FRAIS DE PORT GRATUITS, 


30 GKAND 

BATAILLE D'ANGLETERRE 
BOMBJACK 

COLOSSUS CHESS 4 
DRUIDS 

FIGHTER PILOT 

FRANK BRUNO’'S BOXING 
GHOST 'N'GOBBLINS 
GOLDEN HITS 

GREEN SERET 

IKARI WARRIOR 
INFILTRATOR 

JACK THE NIPPER 
LIGHT FORCE 

MACADAM BUMPER 


RAID SUR TENERE 

SAMANTHA FOX STRIP POKER 
STRIKE FORCE HARRIER 
THEATRE EUROPE 

THEY SOLD A MILLION III 
THEY SOLD A MILLION II 
TOBROUK 


o 
X 


AIDE COMPTABILITE 
AUTOFORMATION ASSEMBLEUR 150 
C.DISscC 

CALCUMAT 

COMMUNIQUER AVEC L'AMSTRAD.155 
COMPTA ALIENOR 

COMPTA COMMERCANT 

COMPTA PME 


DEVPAC 

*X*x DISQUETTE VIERGE X 10 xx 
DR DRAU 

DR GRAPH 

FACT.DEVIS CPC 6128 
GEST,FICHIER+BUDA, FAMILIAL 
GESTION PLUS 664 ET 6128 
GRAPH-X 

H BASIC 

MULTIPLAN 

SOLUTION CPC 

SUPERPAINT 


170 


COMPAREZ 


ECONOMISEZ AINSI 


BIEN NOS PRIX 11 


15 à 20 FRS 


3D CLOCK CHESS 
AMSTRADAMES 
AUTOFORMATION PCW 
BASIC COMPILER 
BATMAN 
BIORYTHME/GRAPHOLOGIE 
BRIDGE PLAYER 

COMPTA ALIENOR 

CYRUS CHESS II 

DB COMPILER 

DISCMAT 

FACT.DEVIS 

FAIRLIGHT 

GESTIONS DE FICHIERS 
HISTOIRE D'OR PC 
INTEGRE DE GESTION 
INTEGRE DE FACT-STOCK 
LORDS OF THE RINGS 
PCU PAINT 

POCKET BASE 

POCKET CALC 

STOCK POUR PCW 

UT GENECAR 

TOMAHAUK 

TURBO PASCAL 


à 
SYSNSNSSSSNSNS SNS SNS NS SNS NS SNS NN NN NON 


TRAILBLAZER 
WINTERGAMES 


TASPRINT 170 
TEXTOMAT 


TURBQ TOOLB0OX 
WORDSTAR 


Prix sauf erreur impression, Plus de 400 Référances: Liste complèta K7 ou DK sur simple demande + 2 Timbres. 
Bibliographie correspondante à des prix toujours aussi fous-fous !!!t 


LIVRAISON SOUS 48 HEURES POUR TOUT LOGICIEL DISPONIBLE ! 
Réglement joint à tte commande à l'ordre de M.GOERY,.(Ctre-Rembt:+20F taxe P.T.T). 


ALLOGICIEL 
B.P: S243 
68065 MULHOUSE CEDEX 


LA RAGE D'IMPRIMER FETE 

fnpnimante matricielle 0 100 po de quutite 
counnien. fmpnession 6i-dinectionnelle a 9 aïquillen 
elle compente une alimentation papien continu ou en 
deutllens commutable une intendace centnomics //8 
bits et une compatibilite EPAON RX 80% 

La Panasonic KX-P 1080 eat équipe d'une cawette 
nuban avec nesenvain de neactivntion inconpone 
d'une dunée de vie de 3 Tiliono de canactenes.Un 
nélecteun  Anontal  penmet Len donct. ions 
gnaphique, bnouil£en et espacement proportionnel 

LA KX-P 1080 EST COMPATIBLE AMSTRAD CPC/PCHK 
MODEL KX-P 1091 COMPATIBLE AMSTRAD PC 1510#/IB"8 


3190 F TTC 


COMPOSITION SUR AMSTRAD + KX-P 1080 


REUENDEURS BLENVENUS 


EPSON AMSTRAD et IBM sont des marques deposees 


IVELEG 62,Rue du 61 de Gaulle 94438 CHENNEVIERES Tel : (6-1245.76.73.13 
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RECOPIE 
D'ECRAN 
UNIVERSELLE 


CPC n° 11, aura une suite : ce programme qui a l’avantage 


Le” de Pascal HIGELIN dans CPC n° 5 suivi d’un additif dans 


d'être utilisable par tous ceux qui n’ont pas d’assembleur, le 
langage machine ayant été placé dans des lignes ‘DATA’. 


Cette recopie a plusieurs avantages et en 
particulier, d'être adaptable à différents 
types d'imprimantes. Dans le pro- 
gramme, elle est initialisée pour la DMP 
2000 et les imprimantes ‘‘’compatibles 
EPSON”. Cette recopie fonctionne en 
mode TEXTE et en mode GRAPHIQUE. 
Un SPOOLER peut être paramétré. Les 
différentes COULEURS de l'écran seront 
reproduites par des trames, sur le papier. 
Elle devra avoir été introduite en mémoire 
avant le programme qui l'utilise, afin que 
les RSX aient été initialisées. Le langage 
machine pourra être sauvegardé (pour 
éviter de passer à chaque fois par le pro- 
gramme DATA) par un SAVE ‘COPY’, 
B, & 9A00, 1055. Dans ce cas, avant 
de le charger, il faudra initialiser le 
MEMORY (en fonction de vos besoins, 
si vous utilisez le SPOOLER) et avant de 
le lancer, faire un CALL & 9AOO. 

Les RSX mises en place, on dispose de : 
| PRINTER qui reconfigure l'interface 
imprimante 

I TEXT recopie l'écran texte (ou une par- 
tie de celui-ci) 

| COPY recopie l'écran graphique (ou une 
partie de celui-ci) 

| SPOOLER redéfinit les paramètres du 


Spooler (mémoire imprimante) 

| COLOR redéfinit la trame d'une pseudo 
couleur. 

Nos lecteurs se reporteront à CPC n° 5, 
page 39 pour les précisions concernant 
la syntaxe des commandes. 

° | SPOOLER début, fin, nombre d'accès 
ex : | SPOOLER, & 9000, & A400, 8 
e | COLOR c c1, c2... c8 

où C1 à C8 représentent les trames des 
pseudo-couleurs (en binaire) et c le n° 
de la pseudo-couleur 

ex : | COLOR, O, 1,2, 4,8, 16, 32, 64, 
128 pour la couleur O. 

e | TEXT Gauche, Droite, Haut, Bas 
ex :1 TEXT 20, 30, 18, 24 pour impri- 
mer une fenêtre 

I TEXT 1, 80, 1, 25 pour recopier l'écran 
mode 2 

e | COPY Gauche, Droite, Haut, Bas, Lar- 
geur, Hauteur 

où largeur = O pour demi largeur (320 
points maxi) et 1 sinon et ou hauteur = 
O pour hauteur normale (400) ou 1 pour 
double hauteur (800) 

| COPY 0, 638, 400, O, 1, 1 pour une 
recopie d'écran en double hauteur 

e |PRINTERn1,x1... xn,n2,y1..yn,a, 
b, c 


n1 ; nombre d'octets pour passer l'im- 
primante en mode graphique 

x1...xn : octets en question 

n2 : nombre de codes de fin de ligne 
y1...yn : octets des codes en question 
a : nombre d'aiguilles de la tête 

b : confection masque 

c : poids fort en haut O ou en bas 1 
ex pour CITIZEN 120 D (compatible 
EPSON) 

| PRINTER, 7, 27, 49, 27, 42, 4, 127, 
2, 1, 10, 7,0,1 

7 nombre de codes passage mode 
graphique 

27, 49 ESC 49 saut de ligne (1/72e de 
pouce) 

27, 42 ESC * mode graphique 

4 mode graphique numéro 4 

127, 2 nombre de points/ligne : 127 + 
2x 256 = 639 

{on ne peut pas mettre 128, qui donne- 
rait 640 points, à cause de la sortie Ams- 
trad sur 7 bits) 

1 nombre de codes pour fin de ligne 
10 code de fin de ligne 

7 nombre d'aiguilles de la tête 

0 rien à ajouter à chaque octet graphique 
1 bit de poids faible en bas. 


1 MEMORY &O22F: A=89AO0:F=LOEIF: L=100: WHILE A<=F: FOR A=A TO A+13:READ CH: E=VAL ("8 


"4+CH):S=S+K+65526%(S+F5352767)2:1F AS=F THEN FOFE 4,K 


NEXT:RKEAD DH: T=VAL("%"+D#):1F T£>S THEN FRINT CHR$# (7); "Erreur 

L=L+S:WEND 

FRINT CHRK#&(7):CALL %&9A00 

1PRINTER,7,27,49,27,42,4,127,2,1,10,7,0,1 
Four recopier ecran graphique faire 
Four recopier ecran texte mode i, faire 


ligne";L:END ELS 


‘Initialise les RSX 

‘Init. Gra. DMF 2000 ou EFSON 
1COFY,0,626,400,0,0,1 
1TEXT,1,40,1,29 


NOUBRUMH 


100 DATA 
105 DATA 


01,50,9A,21,4C,9A,CD,D1,ERC,21,2E,ED,11,D2,9D,01,66DA 
05,00,ED,E0,71,D6,9D,11,7E,ED,01,03%,00,ED,BO,271,0CCC 
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DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


2B,BD,11,D0,9D,01,03%,00,ED,B0,21,D9,9D,11,2E,EHD,1262 
01,03,00,ED,E0,271,42,94,06,81,0E,00,11,7D,9A,CD,188C 
D7,RC,C9,F9,E7,FB,87,00,81,7D,9A,00,FC,A6,50,9A,22T6E 
b1,9A,C2,89,9A,C3,12,9C,C3,37,9C,C3,B3,9C,C3,2%,2H4F 
9D,4%,4F,50,D9,43,4F,4C,4F,D2,50,52,49,4E,54,45,%178 
D2,54,45,58,D4,53,50,4F,4F,4C,45,D2,00,C5,D5,E5, 2922 
F5,CD,8k,9D,F1,E1,D1,C1,C9,FE,06,C0,DD,6E,0A, DD, 443F 
66,0B,22,FA,9D,DD,6E,06,DD,66,07,22,FE, 9D,DD,6E, 4C0C 
08,DD,66,09,227,FC,9D,DD,6E,04,DD,66,05,22,00,9E,52777 
DD,7E,02,22,0A,9E,DD,7E,00,227,0B,9E,2A,FC, 9D,ED,598F 
SB,FA,9D,37,2F,ED,52,D8,24,FE,9D,ED,58,00,9E,27,61F0 
3F,ED,52,D8,2A,FA,9D,22,02,9E,Z7A,FE, 9D,22,04,9E,6957 
CD,A9,9B,CD,BA,9E,24,08,9E,47,4F,3E,00,22,09,9E,7012 
22,06,9E, 24,04,9E,ED,5E,02,9E,234,09,9E,FE,01,270,759C 
04,27,2F,18,08,C5,CD,FO0,BE,CD,CB,9B,C1,2A,06,9E,7D45 
17,32,06,9E, ZA, 04,9E,ED,5B,00,9E,27,3F,ED,52,28,82D1 
05,7C,FE,FF,20,05,3E,01,32,09,9E,2A,04,9E,2B,=A,87BD 
OB,9E,FE,00,20,01,2E,22,04,9E,10,B7,2A,07,9E,FE,8D18 
00,20,0D,2E,08,91,47,21,06,9E,27,2F,CB,1E,10,FA,9191 
3A,06,9E,CD,OD,9C,ED,5E,02,9E,2A,FC, 9D,27,2F,ED,98F3 
52,28,18,38,16,13,3A,0A,9E,FE, 00,20,01,13,ED,5%,9D:4 
02,9E,24,FE,9D,27,04,9E,C3,E6, A, ZA, 08,9E,4F,=A,A40F 
OB,9E,FE,00,20,02,CE,21,06,00,2A,FE,9D,37,2F,ED,A9FZ 
42,22,FE,9D,2A,FA,9D,22,027,9E, 2A,09,9E,FE,01,CA,B11E 
A5,9B,C3,E0,9A,CD,A9,98B,C9,21,DC,9D,46,78,FE,00, RACE 
c8,23,7E,CD,05,9C,23,10,F9,C9,21,E7,9D,46,78,FE,C2F8 
00,C8,23,7E,CD,05,9C,23,10,F9,C9,21,0E,9E, 16,00,C8A7 
SF,CE,23,CB,23,CE,23,19,ED,5B,04,9E,3A,0R,9E, FE, CFE4 
00,20,02,CB,2B,16,00,3E,07,43,SF,19,7E, 4F,ED,SE, D457 
02, 9E, A, 0A,9E,FE, 00,20,07,CB,3B,3E,07,A3,47,04,D93? 
CB,11,10,FC,C9,E5,CS,CD,2B,BD,C1,E1,C9,C6,00,CD,E340 
05, 9C,C9,FE, 09,C0, DD, 6E, 19,CB,25,CB,25,CB, 25, 26, EAC2 
00,11,0E,9E,19,DD,72,0C,9E,ED,5B,0C,9E,06,08, 1A,EFS5E 
77,1%,12,23,10,F9,C9,6F,CB,25, 2D, 2D, 26,00, DD, 22,F4CB 
OC, 9E,ED,5B,0C,9E,19,22,0C,9E,5E,4F,7B,FE,OB, D0,FEH4D 
79,1C,93,CB,2%,16,00,27,3F,ED,52,5E,4F,78B,FE,ÔB,015F 
DO,79,1C,93,CB,23,16,00,37,3F,ED,52,47,7E,FE, 06,07D9 
D8,FE,08,D0,78,D6,02,C0,2A,0C,9E,46,04,11,E7,9D,0F4R 
7E,12,2E,2B,13,10,F9,46,04,11,DC,9D,7E,12,2H,2E, 1407 
13,10,F9,7E, 32,08,9E,2B,2B,7E, 32, 0E, 90, 2B,2B,7E, 18FD 
322,07,9E,FE,00,28,06,3E,17,22,10,9B,C9,3E,1F,32,1D8A 
10,9B,C9,FE,04,C0,DD,7E,06,FE,01,D8,22,FA, 9D, DD, 269E 
7E,02,FE,01,D8,22,FE,9D,DD,7E,04,FE,51,D0,22,FC, 2F6E 
9D,DD,7E,00,FE, 14,D0,22,00,9E,3A,FE, 9D,4F,3A,00,367C 
9E,91,D8,4F,0C,3A,FA,9D,47,3A,FC, 9D,90,D8,47,04,2E7C 
ED,4%,0C,9E,34,FE, 9D,CD,72,BB,2A,FA,9D,FS5,CD,6F,4827 
BE,CD,60,BB,FE, 20,30,02,3E,20,CD,05,9C,F1,23C,10,4F23 
EC,CD,A9,9E,ED,4B,0C,9E,O0D,CB,2ZA,FE, 9D,2C,32,FE,5818 
9D,18,CD,FE,03%,C0,DD,6E,02, DD, 66,02, DD,SE, 04, DD, 600A 
56,05,2E,A3,EC,D68,E4,D8,E5,37,ED,52,E1,D8,ED,52,69C0 
F4,9D,22,F2,9D,ED,53,F8,9D,15,ED,53,F6,9D,DD,7E,7418 
00,22,8C,9D,C9,7A,F4,9D,ED,5B,F8,9D,27,2F,ED,5?,7C8B 
37,C8,2F,C9,27,F5,C5,D5,E5,CD,55,9D,38,FB, 24,F6,B64F 
9D,77,23,22,F6,9D,ED,5B,F2,9D,37,2F,ED,52,20,06, 8DED 
24,F4,9D,22,F6,9D,E1,D1,C1,F1,C9,06,08,7A,F6,9D,9755 
ED,5B,F8,9D,27,ED,57,C8,24,F6,9D,23,22,F8,9D,ED,A0F6 
SB,F2,9D,27,3F,ED,52,28,13,2A,F8,9D,7E,C5,CD,D3,A972 
9D,C1,308,127,0S,C2,D0,9D,C1,10,D7,C9,2A,F4,9D,2B,B26B 
22,F8,9D,C3,8D,9D,2A,F8,9D,2B,22,F8,9D,10,BE,C9,BB47 
CF,0B,88,CF,48,88,C3,55,9D,C3,64,9D,01,0A,00,00,C1CC 
00,00,00,00,00,00,00,07,1B,21,1E,24,04,7F,02,00,C2E9 
00,00,00,9A,20,92,28,98,27,98,00,00,7E,027,FA,FF,CB3D 
00,00,00,00,FA,FF,00,01,07,01,01,01,FC,BF,10,20,CC?C 
40,80,01,02,04,08,FF,FF,FF,FF,FF,FF,FF,FF, 00,00, D4F5@ 
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FELIS-CATUS.. 


Christophe PAVEN 


Résumons-nous, FELIS-CATUS vous dira 
tout sur le catalogue de vos disquettes ; 
quelque soit le FORMAT, le USER, le 
STATUS des fichiers ; avec le choix du 
lecteur source et la possibilité d'écho sur 
imprimante. Le programme peut être 
quitté sous un USER supérieur à 15 pour 
la récupération de fichiers effacés par 
exemple. 


ARCHITECTURE 

Le programme pilote, nommé FELIS, est 
un basic. Il fait appel pour les accès dis- 
que au programme binaire FELIS2. 
FELIS1 n'est qu'une routine d'écho vers 
imprimante activable et désactivable à 
volonté, que vous pouvez utiliser pour 
vos propres applications. Attention, elle 
n'effectue aucun contrôle sur la valeur 
des octets envoyés vers le port 
CENTRONICS. 


FONCTIONNEMENT 

Pour s'affranchir des limitations volontai- 
res de la fonction CAT il faut faire appel 
aux routines de base du système d'ex- 
ploitation AMSDOS pour la reconnais- 
sance du format, et le chargement des 
quatre secteurs affectés au catalogue. 
Ces routines peuvent être appelées via 
un RST #18 après avoir chargé conve- 
nablement les registres du Z80, donc 
uniquement en langage machine. FELIS2 
assure cet interfaçage logiciel entre le 
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u’'est-ce-donc ? 
— Un chat, un CAT..., un catalogue disquette. 


Encore un !! 


— Oui, mais d’une race différente, plus docile, plus fouineur, pres- 


que un CHARTREUX... 


basic et les routines AMSDOS. 

— les deux kilo-octets du catalogue 
sont donc chargés en RAM à partir de 
l'adresse &8000, le programme basic en 
assure ensuite l'analyse ; 

— le catalogue peut comporter au maxi- 
mum 64 entrées, chacune d'elles étant 
codée sur 32 octets ; 

— lorsqu'un fichier a une taille égale ou 
supérieure à 16 ko, il occupe deux 
entrées ou plus sur le catalogue. 


Nota : Afin d'obtenir une image réelle, 
les titres ne sont volontairement pas triés 
par ordre alphabétique. 


UTILISATION 

Au lancement du programme, le lecteur 
source est automatiquement reconnu, et 
l'écho sur imprimante désélectionné. 
Le menu principal présente cinq options. 
L'action correspondante est lancée dès 
l'appui sur la touche numérique (sur l'un 
ou l’autre pavé). 

1. Catalogue complet : 

S'effectue sur le lecteur source sélec- 
tionné. Le format de la disquette, les 
fichiers avec leurs caractéristiques, et 
l'espace total utilisé (y compris les 2 ko 
du catalogue) sont affichés. 


L'espace total occupé ne comprend pas 
les fichiers en USER 229 (effacés) car, 
bien qu'existants au catalogue, ils peu- 
vent être en partie ou totalement ‘’écra- 
sés'” par les autres fichiers. 

La fenêtre permet de présenter 32 titres, 
dans le cas où le catalogue en comporte 
davantage le programme attendra la 
frappe de la barre d'espace pour afficher 
la suite. La même action provoquera le 
retour au menu principal lorsque tout 
aura été affiché. 

Le programme émet un bip (CHR$S 7) cha- 
que fois qu'il attend une réponse ou une 
action de l'utilisateur. 


FELIS -— CATUS 


Un Ur 


2. Changer Unité-Imprimante 

Pour changer de lecteur source (0 ou 1) 
ou sélectionner l'écho sur l'imprimante. 
3. Changer les couleurs | 

Les goûts et les couleurs, ça ne se dis- 
cute pas. ; suivez le menu. 

4. Changer de USER 

Vous permet de passer sous n'importe 
quel USER de O à 2565. Utile pour récu- 
pérer les fichiers effacés (USER 229) à 
condition de sortir du programme par 
l'option 5 et non par un RESET. 

5. Quitter 

Pour sortir proprement du programme 
sous un USER différent de O. 
Attention : Le HIMEM reste fixé à 
&4FFF, pour blanchir totalement la 
mémoire taper : MEMORY 42619:NEW. 


CHRONOLOGIE DE SAISIE 

1. Taper le programme FELIS, sauf les 
lignes 1999 et au-delà pour ceux qui sau- 
vegardent directement sur disquette. 

- Le sauvegarder. 

2. Taper FELIS1C puis le sauvegarder. 


- Le lancer, il produira le fichier 
FELIS1.BIN. 
3. Taper FELIS2C puis le sauvegarder. 
- Le lancer, il produira le fichier 
FELIS2.BIN. 


4. Faire un CAT pour vérifier la présence 

des fichiers FELIS, FELIS1 et FELIS2. 
RESET puis RUN ‘’FELIS. Si tout fonc- 

tionne, vous pouvez effacer FELIS1C et 

FELIS2C. Si non, vérifiez chaque pro- 

gramme. Ligne par ligne. 

— Pour ceux qui achétent la cassette 

CPC, le programme est prévu pour 

s'auto-transférer sur disquette : 

° mettre sous tension y compris le lec- 

teur de disquette ; 

° mettre la cassette CPC et une dis- 

quette formatée DATA ; 

e TAPER : :TAPE :LOAD''FELIS" ; 

e lorsqu'il est chargé, taper : RUN 

2000. 


Catalogue complet pour disquette 
(CC) 1986 C.FAVEN % 


CFC 


19 vbor=1z:vpap=i3:vcera=0:INE ©, vpap:EDR 


DER vbor:s INK 


1,vcra:MODE 2 


20 DEFINT n-z: WINDOW#KO,1,80,295,2S:CLS:WI 


NDOW#1,2,79,7,23:CLS#1: WINDOW#3,2,2Z 


+ 


= 
9 





: CLSH#Z: WINDOW#4, 42, 


79,2,3:CLS#4:WINDOW#S 
,2:79,5,5:FAFER O:PEN 1:CLS#5 


50 MOVE 2,74: DRAWR 0,270: DRAWR 634, 0:DRA 
WR O,-2370:DRAWR —-6274,0:MOVER 674,288: DRA 
WR —-674,0:MOVER 0,22: DRAWR 654,0:MOVER — 
316,0: DRAWR 0,48 

40 MOVER —-4,-4:DRAWR —2:10,G:DRAWR GO, -28: 
DRAWR 310,0: DRAWR 0,238: DRAWR 0, 2: DRAWR = 


710,0: DRAWR O,-42:DRAWR 510,0 

50 LOCATE#HZ,9,1:FRINT#I,®F E L I S —- C A 
T U S" 

69 LOCATEHS,11,2:FRINT#Z,"(C) 1986 C.FA 
VEN”; 

70 MEMORY 8&A4FFF:LOAD'"'felisi.bin",zRñ6oû 
80 LOAD'"'felis?.bin",25000:CALL &3580 


90 us=FEEr (FEEEr (®& BE7E) +2S6+FÉEE (&BE7D) ): 
GOSUE 180: FRINT#4,us:GOSUE 219 
100 WINDOW#O,1, 80,25, 25: GOSUE 280:GOSUE 


+ 


140: GOSUR 250 ‘afficher menu ,chercher c 
ho1ix 

110 GOSUE 470:0N rep GOSUR 52:0,1070,960, 
490,1050 

120 CLS#5:G0OTO 100 


120 affichage du menu principal 

140 WINDOW#1,2,79,7,223:CLS#1:LOCATEHI,26 
3 2:FRINT#1,"— 1 — CATALOGUE COMFLET":LO 

CATE#H1,26,S:FRINT#1,"— 2 — CHANGER Unit 
e, Imprimante OCATE#H1,26,7:FRINT#1,"— 25 
— CHANGER LES COULEURS" 


150 LOCATE#1,276,9:FRINT#1,"— 4 — CHANGE 

KR CE USER":LOCATE#1,26,11:FRINTH#I,"— 5 — 
QUITTER" 

160 RETURN 

179 choix de l'unite source 


189 CLS#4:LOCATE#4,9,1:FRINT#4, "Unite SO 


URCE ses. 5: “ssIF rep=? THEN FRINT CHR$( 
7): GOSUE Z40:us=VAL (ip#):FRINT#4,us; 

190 RETURN 

2060 selection imprimante 


210 LOCATE#4,S,2:FRINT#4,"Imprimante (0/ 
N)..: "s3:1F rep=2 THEN GOSUR 410:1IF rep= 
1 THEN imp=i:FRINT#4,"Oui"; ELGSE FRINT#4 
s'Non'";:imp=0 ELSE FRINT#4, "Non"; :1imp=0 





220 RETURN 

250 saisie de reponse © ou 1 

240 WHILE ip$<>"":1ip$=INREYS:WEND 

250 WHILE ip$<>"1" AND ip$4>"O":1Pp#=INFE 

Y$: WEND 

260 GOSUE 470:RETURN 

270 messages fenetre 5 / 

280 mes$=" FAITES VOTRE CHOIX GOSUE 

ZZ0: RETURN 

290 mes+t=" CHANGEMENT DES COULEURS "“:G 
OSUR 32Z0:RETURN 

Z00 mes$t=" CATALOGUE DISQUETTE ‘“:GOSUE 
3230:RETURN 

310 mes$=" CHANGER DE USER “:GOSUB 330 
: RETURN 

320 mes$=" QUITTER “":GOSUB Z3O0:RETURN 
330 CLS#HS:mes=LEN (mes) : loc=INT((78-mes) 
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DATAPEN 
LE STYLO OPTIQUE QUE VOUS ATTENDEZ 


DATAPEN est multifonctions, précis au 


pixel dans les 3 modes, pour écran mono 
ou couleur, Possède une diode de contréle 


CFC et FCU, 


automatiquement 


Le protectaur de 


MICROSANVE 


les informations en mémoire pendant 20 ou 


la mémoire des AMSTRAD 
Lors d'une coupure de secteur 
ou d'une chute de tension MICKOSAVE prend 
le 






GRAFH K7 50F D 80 


Logiciel de recopie graphique d'écrar 
imprimante compatible EPSON 


LOUE LT 






relais et conserve 







re un cesen pousser intègré pour 45 mn selon le modèle, MICROSAVE comprend) La plus puissante des boites à outil 
Le Li res n re, 4 s un chargeur pour ses batteries, une] Programmeur an basic, comporte plus d 
vec nous vous 2NrroNns détection automatique de présence) fonctions, un compacteur de mén 





logiciels non protègés dont; secteur, un 


— AMPEN logiciel de dessin en mode 0 





limiteur de 
câble de branchement entre la moniteur et 






pouvant vous faire gagner jusqu'à 25 


décharge, un 
place et de vitesse d'exécution, 


















ne Lie Éditer. rep hd en 16 le clavier, PRECIGEZ CPC OÙ PCW désassembleur, Une recopie d'écran, 
. . en et | c recherche et une renomination 
DATAPEN logiciels K7 290F 0 320  [MICROSAVE EST UN APPAREIL BREVET Re 
TAROT MICROSAVE 5/20 (20 an) 770,90F LTOOLKIT RON 340F K7 240F D 280 
GESTION DE TOURNOIS D 500 F MICROSAVE 5/45 (45 nn) 839,50F REMBRANOT K7 175F D 206F 
è J : LOCKSMITH K7 200F D 240F 
De nombreux CLUBS utilisent déjà ce O1SC DEMON D 240F 
- logiciel pour gérer leurs tournois selon EASYART K7 939F 
les règles officielles de la F,F,T,sans SYSTEMES EXPERTS RSX SYCLONE K7 130F 
contastations, Vous pouvez gérer un TOMCAT K7 130F 
tournoi de 99 tables, 8 tours et 8 TURBDEXPERT BASE est un systeme expert} SCRIPTOR K7 130F 
RS en pr pe re ii d'initiation, écrit en Turbo Pascal,f TRANSLOCK K7 150F 
T comprenant n otaur d'inférenc d' d SYSTEM X K7 160F 
cotegortes JUNIORS, DAMES et SENIORS Q) capable és travailler en hatnage avant SPIRIT K7 12SF 
Tirage au sort des tables at arrière, un éditeur de règles, un PRINTER PACI K7 126F 
— Enregistrement, vérification, gestionnaire de faits, Trois versions | MEPHISTO K7 1650F 
validation des résultats sont disponibles :; 000J08 D 200F 
— Affichage et impression du classement - CFMZ/2 pour CPC (50 règles) HERCULE D 250F 
— Affectation des tables - CFM+ pour CPC (150 règles) *X Les notices en français des logici 
[ Classement final en trois catégories, - CPM+ pour PCU (150 régles) PRIDE UTILITIES (RSX SYCLONE, TOM 
Person d'une fiche individuelle de Et bientôt une version PC Û SCRIPTOR, TRANSMAT, 2ED1S,,etc ) 
performance l À disponibles contre 7,50F en timbres 
TURBOEXPERT cprecisez La version» 249F 








BELOTE 
GESTION DE CONCOURS  K7 220 F D 250 F 


CLUBS gérez vos concours BELOTE suivant 
les règles officielles sans contestations 
jusqu'à 200 personnes, 

— Inscription des participants 
Tirage au sort des tables 


EXPERTIS 64+ 
EXPERTIS 128 








= Enregistrement, vérification, Carte N t à 

— Validati d é ltat vni ‘ 

s Aflectetion des tables Expiration , 

— Affichage et impression du classement Nom À + à. 7 

Adresse , ,, 

3 MODE K7 S0F DE80F ARR a ns 

Affich 1 3 d à ! foi d SE 

a Se ds nn PidNaiure 


n'est pas protégé pour être inclus dans 
vos logiciels (464 et 6128 seulement) 


Bon de conmande (port 10F rec 
Carte ELEUE ou 





enveloppe réponse, 





370F 
45ÛF 


20F C/renb 30F Rec, gratuit à Pre de 500F) 






DISQUETTES VIERGES 
CASSETTES VIERAES C15 


3 pour 100F 
S pour 37F 


UROCARD Je possède un NT 
RE Je commande : Prix 
RE RS 
. Total ii 
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/2)+1:LOCATE#S, loc, 1: FRINT#H#S, CHK$ (24) +me 

SH+CHRSE (24) 3: 2: FRINT CHRS$ (7) : RETURN 

340 saisie du choix 

350 IF NOT INHEY(64) OR NOT 

EN rep=i:RETURN 

360 IF NOT INÉEY(6S) OK NOT 

EN rep=2:RETURN 

270 IF NOT INEEY(57) OR NOT 

N rep=23i: RETURN 

289 IF NOT INFEY(S56) OK NOT 

EN rep=4:RETURN 

390 IF NOT INEEY(49) OK NOT 

EN rep=5:RETURN ELSE 350 

400 saisie reponse OUÙUI/NON 

410 IF NOT INKHEY(54) THEN rep=li: RETURN 
420 IF NOT INFEY(46) THEN rep=0: RETURN E 

LSE 410 

470 barre d'espace pour continuer 

440 FRINT CHR# (7) 

450 IF NOT INKHEY(47) 

© 

460 vider buffer clavier 

479 1k$="X":WHILE 1K$£E "M": 1ES=INEE"YS: WEN 

D: RETURN 

480 changer de USER 

490 CLS#1:GOSUE 710:adruser-=FEEKR(&BE7E) *# 
256+FEER(2BE7D)+1:LOCATE#1,25,4:FRINT#I, 
"USER actuel .......... 2: "sUSING"'#K##"; 

FEEF (adruser) 

300 GOSUR 470:LOCATE#1,25,6: INFUT#1,3 "No 

uveau USER (0 a 255). : ",nuser 

910 FOKE adruser,nuser:RETURN 

920 catalogue sur imprimante 

520 GOSUEB 50G:WINDOW#O,2,79,8,223:CLS:WIN 
LOW#1,2,79,7,7:1F imp=i THEN CALL &A&QC 
540 CALL £&S0D6, us, O:tsec=FEEr (&SCGEZI) AND 
240:1F tsec=192 THEN tform=i:pist=0:sec 
t=®C1 ELSE IF tsec=64 THEN tform=£:pist= 
Zi:sect=%41 ELSE IF tsec=0 THEN tform=z:p 
ist=i:sect=1 ELSE tform=0 

950 sbuf=%8000:FOR z=1 TO 4: CAL &SIAaZ,u 
s,pist,sect,sbuf 

S£O sect=sect+il:sbuf=sbuf+SiZ:NEXT z 

970 CLS:LOCATEHS,1,12:1F tform=1 THEN FRI 


INÉEY(1Z) TH 
INEEY (14) TH 
INÉEY (5) THE 
INÉEY (26) TH 


INFEY (12) TH 


THEN RETURN ELSE 453 


NTH#S," FORMAT DATA"; ELSE IF tform=2 TH 

EN FRINT#S," FORMAT SYSTEM"; ELSE IF tf 
orm=Z THEN FRINT#H#S," FORMAT  IEM'"; ELSE 
FRINTH#S," FORMAT  SFECIAL'"3;:GOSUB 440:RE 
TURN 

580 IF imp=i THEN PFRINTHE 

990 FRINT#1," User Nom Long 
Status User Nom Long 
Status "s5:1F imp=i THEN FRINT#E 


606 GOSUE 82Z0:GOSUE 820:prif=0:ploc=z:pl 
ig=i:tailt=0 

610 FOR vbOü=88000 TO 8S87E0 STEF SE 

620 voct=FEEE(VbO+1):IF voct=Q OR voct=® 
29 THEN IF prif=1 THEN GOSUE 640:prif=0: 
GOSUB 830:G6O0SUB 820:560T0 730 ELSE 750 EL 
SE nuser=FPEEr (vbo0) 

639 FOR vb1i=1 TO 8:voct=FEEK(vbO+vb1):6G0 
SUB 7B80:NEXT vbi 

649 nom$=nom$+"." 

6350 FOR vb1=9 TO 11:voct-=PEEK(vbO+vbl1l):I 
F voct >127 AND vbh1i=9 THEN rwf=1i 
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680 IF voct >127 AND vb1=10 THEN sysf=1 
679 GOSUB 780:NEXT vbli 

680 FOR vb1=16 TO S51:voct=PEEK(vbO+vbi1i): 
1F voct>O THEN tail=tail+i 

690 NEXT vbl:IF nuser <>229 THEN tailt=t 
ailt+tail 

700 IF nom$=nomp#t AND nuser=nuserp THEN 
tailp=tailp+tail:prif=1i:GOTO 750 

710 IF nomp$="" AND tailp=O THEN GOSUE € 
20:prif=1:GO0OT0 730 

720 GOSUR 840:GOSUB 820:IF nom$&="" 
prif=0 

7:50 GOSUE BSZO:NEXT vVbO:IF prif=1 THEN GO 
SUE 840:prif=0 

740 tailt=tailt+2:1F imp=i THEN FRINT#8 
750 LOCATE#S, 64,1: FRINTHS,USING"'H#H##"; tai 
It; :FRINT#H#S," EH occupes"; 

760 IF imp=1i THEN CALL SAG17:FRINTHB8:FRI 
NT#8 

779 GOSUE 440:RETURN 

789 IF (voct:6éz AND voct:96) OR (voct>s5i 
AND voct<40 AND voct<>357) OR voct=45 OK 
voct=45 OK (voct:47 AND voct<#58) THEN 8 
19 

790 voct=voct AND 127:1F voct£3SZ THEN vo 
ct=voct XDR 32 

800 IF voct >6Z THEN voct=voct AND 93 
819 nom$=nom#$+CHR$ (voct):RETURN 

820 nomp$=nom#:nuserp=nuser:tailp=taiil:r 
wfp=rwf:sysfp=sysf: RETURN 

8:09 nom$="":tail=0:nuser=Ù:rwf=0:sysf=0: 
RETURN 

840 IF plig=1i7 THEN GOSUR 920 

850 IF imp=i THEN IF ploc=Zz THEN FRINT#E 
, SFACES(Z); ELSE FRINT#HE, SPACES (6) ; 

860 LOCATE ploc,plig:FRINT USING"'###"3;nu 
serp;:FRINT" +nomp$+" MssFRINT USING" 
#H#"stailp;:FRINT E "3 


THEN 


870 IF rwfp=1 THEN FRINT" R/0 “; ELSE FR 
INT" R/W "; 
880 IF sysfp=1 THEN FRINT" SYS "; ELSE F 
RINT" DIR *; 


890 IF imp=i AND ploc=4Zz THEN FRINT#8 
900 ploc=ploc XOR 40:1F ploc=z THEN plig 
=plig+i 

910 RETURN 

920 plig=1l:1F imp=1i THEN CALL 8&A617 

9:50 GOSUE 440:CLS 

940 IF imp=i THEN CALL &A6O0:RETURN ELSE 
RETURN 

950 changer les couleurs 

960 CLS#1:GOSUE 290:LOCATE#1,22,6: FRINT# 


1,"—- E —-  EORD'":LOCATE#1,22,8:FRINT#1,"— 
O —  FAFIER":LOCATE#I,22,10:FRINTH#1,"— 
1 —  CRAYON'":LOCATE#HI,20,13:FRINT#1,"<EN 

TER5 Retour“ 


970 1F NOT INFEY(S54) THEN vt=vbor+i:GOSU 
E 1010:vbor=vt: BORDER vbor 

960 IF NOT INFEY(52) OR NOT INFEY(1S5) TH 
EN vt=vpap+i:GOSUE 10i0:vpap=vt: INK 0,vp 
ap 

990 IF NOT INFEY(64) OR NOT INÉEY(1Z) TH 
EN vt=vcera+i: GOSUR 1010:vera=vt: INK 1,vc 
ra 


1000 IF NOT INKEY(18) OR NOT INÉEY(6) TH 


FELIS-CATUS 





EN RETURN ELSE FOR tt=0 TO BGO:NEXT:GOTO 


970 

1010 IF vt=27 THEN vt=0: RETURN ELSE RETU 
RN 

1920/ changer unite source,imprimante 
1050 GOSUB 180:60SUR 210:RETURN 

1040 quitter 


1050 GOSUR 220:CLSH#1:LOCATE#HI,50,8:FRINT 
#1,"CONFIRMATION : (D/N) * 
1060 GOSUR 410: GOSUR 47/70:1IF 
Q70Q ELSE RETURN 

1070 MODE 2:NEW:END 

1999 Transfert sur disquette 

2000 (DISC.OUT: MEMORY &4FFF:LOAD'"'felisi" 
: “AGO 

2010 LOAD'"'fel1is2",#50060 

2020 CLS:FRINT'DISQUETTE FREÈTE (presse 
z une touche)":CALL £BEBG6: CALL SEBROZ 
2050 SAVE" felis":SAVE"felisi",b,%A600,%Z 
Z: SAVE" felis2",b,#35000,%1AD 

2040 FRINT:PRINT'TRANSFERT TERMINE...mer 


al 


rep=i THEN 1 


2550 END@ 

1 FELIS1C..chargeur basic de FELISI 

2 ei ac vai nus Due Gus Suis ste dis di Les Dù ruse Se LS ou bn tt Rom hate anne pe ns sol gs Mn le D em SE 

4 Foutine universelle d'echo sur 
imprimante. 

9 

6 Call %A800 active l'echo 

7 Call 4617 le desactive 

8 


10 DATA 21,5a,bb,11,26,a6,01,05:,60,ed,b0 
,21,23,a6,11,5a,bb,01,07,00,ed,b0,c9 

20 LCATA 21,26,a6,11,5a,bb,01,05,00,ed,b9 
se? 

20 DATA cz,29,a6,00,00,00,cd,2e,bd,:8, fb 
cd,2b,bd,18,9f3 

409 FOR a=8A600 TO &AGSEIZ 

90 READ v&:POFE a,VAL("8&"+v$):NEXT a 

69 SAVE "FELISi",b,%A600,%33 

70 END@ 


10 ‘ FELIS?C..chargeur basic de FELIS2 
50 : 

40 DATA 81,83,84,85,86,87,88,89,00,00,07 
,00,00,07,00,00,0479 

30 DATA 07,00,00,07,00,00,07,00,00,07,00 
,500,07,00,00,07,002a 

69 DATA 6c,c5,07,00,06,00,00,00,00,00,00 


,990,00,00,00,00,0178 
79 DATA 09,00,00,00,00, 00,00, 00,00,00,00 
,09,00,00,00,00,0000 

89 DATA 09,00,00,00,09,00,00, 10,09,00,00 
,00,00,00,00,00,0019 

90 DATA 00,090,00,00,00,00,00,00,00,00,00 
: 00, O9 , 00 , 00 : 00, 0000 

190 DATA 00 L 09, O0 : O00,00,00,00,00, 00, 00, O 
0,00,00,00,06,00,0000 

110 DATA 00,00,G0,00,00,00,00,00,00,00,0 
0,00,00,006,00,00,0000 

120 DATA 00 ï 00 . 00 , 00 , OS , 00 : 00 : 00, O0 ; 00,0 
9, 00 20, 00 L O0 " 00,0000 

130 DATA 00,00,00,00,00,00,00,00,00,00,0 
0,006,00,00,00,06, 0600 

140 DATA 01,00,068,dd,71,08,50,21,00,50,0c 
,es.dd,es,cd,d4,06dd 

159 DATA bc,dd,eli.dd,75,00,dd,74,01,dd,7 
1.02 ,dd,23,dd,275,086e 

160 DATA dd,23,el,2z,ci,1i0,es,c9,dd,7/e,0 
0,dd,es,df,1a,56,0Be7 

170 DATA 22,45,50,dd,ei,c9,dd,es,cd.,68,s 
1,21,ff,0a,2%:,46,082?8 

180 DATA 50,cd,0e,51,dd,el,dd,se,0®?,dd,s 
6,00,df,17,50,21,0711 

199 DATA 44,50,46,21,25,950,0e,00,c5,e3,d 
f,20,50,el,ci.,da,06fi 

200 DATA 1b,31,72,45,90,21,00,0a,€%,46,5 
Gü,cd,/7d,51,3a,46,0471 

219 DATA 50,df,08,50,3a,47,950,df,1d,30,c 
9,2a,4d,be,eé6,896,0718 

220 DATA ca,2b,91,21,47,90,7/71,af,c2z,02,5 
1,d5,e5,11,19,06,060b 

> DATA 19,3a,952,be,77,el,2a,S1i,be,77,d 
1,2:,0c,10,b9,c3:,0707 

240 DATA 23,51,dd,6e,00,dd,66,ûi,dd,4e,û 
2,dd,56,04,dd,5e,06a2 

259 DATA C6,df,0e6e,50,c9,dd,6e,00,dd,66,0 
1,dd,4e,0?,dd,56,06#fb 

26G DATA 04,dd,5e,06,df,11,30,c9,04,21,2 
1,2:,50,af,77,23,0552 

270 DATA 10,1fc,06,40,21,60,50,af,77,22Z,1 
O,fc,c9,dd,es,21,0724 

289 DATA 47,50,7e,fe,00,28,25,47,21,22,5 
0,dd,21,60,50,e3,05c8 

250 DATA dd,72,00,d5,7e,dd,77,02,11,10,0 
0,19,7/7e,dd,77,03,G607 

200 DATA 11,04,00,dd,19,di,el,2:,10,e3,d 
d,ei,c9,06,00,00,063c 

510 DATA 78a9 








320 

ZT30 CLS:RESTORE:sumt=0: FOR 1=0 TO 26:sum 
=0 

540 FOR v=Q TO 15:GOSUE 400:sum=sumtdat 
250 POFE (825000+1#16+v),dat:NEXT v 

Z60 GOSUR 450:IF dat<>sum THEN 410 ELSE 


sumt=sumt+sum:FRINT 1+105" 2: OK ":NEXT 1 


570 GOSUE 400:IF datissumt THEN 420 
280 SAVE"FELISZ",b,%5000,81AD 

290 END 

400 READ vé:dat=VALl ("R&"+v#) : RETURN 

410 CLS:FRINT'"'## Erreur en data ligne : 


“:1+10:STO0F 
420 CLS:FRINT'"#+# Somme de controle erron 
ee **":STOP@ 
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/ Nr 


INITIATION A 


qu'offre un macro-assembleur comme MAC. Ce mois-ci, avec 


A e mois dernier, nous avons entrevules possibilités importantes 


RMAC, nous arrivons au top niveau des possibilités d’un assem- 


bleur, c’est-à-dire la possibilité de générer, non pas un 


rogramme 


complet destiné à être converti par LOAD ou HEXCOM en pro- 
gramme binaire exécutable, mais un module dit ‘’objet’’. Plusieurs 


e ces modules objets sont 


"1 


ar ailleurs 


iés’’ entre eux par LINK, 


qui est ce que l’on appelle l'éditeur de Liens, pour donner un pro- 
gramme binaire exécutable. 


En effet, lorsque l'on écrit un gros pro- 
gramme, il est plus facile de le décom- 
poser en modules séparés, chaque 
module pouvant contenir un ou plusieurs 
sous-programmes qui pourront éventuel- 
lement être utilisés dans d'autres modu- 
les du programme. Cela permet d'assem- 
bler et de mettre au point un module à 
la fois, ce qui évite, lors de la mise au 
point d'un autre module, de devoir pas- 
ser du temps à assembler une partie déjà 
au point. 

D'autre part, si vous êtes un program- 
meur organisé, vous allez essayer 
d'écrire des modules très généraux que 
vous pourrez ré-utiliser dans d'autres 
programmes. Vous aurez ainsi à votre 
disposition une ‘‘bibliothèque'" de modu- 
les objets prêts à l'emploi. 

Les modules objets doivent avoir une 
propriété que ne possède pas par nature 
le code binaire destiné au 8080/Z80, ils 
doivent être ‘’relogeables'" (relocatables 
en anglais}, c'est-à-dire que les adresses 
qu'ils contiennent ne sont pas absolues, 
comme en binaire normal, mais relatives 
au début du module, c'est-à-dire à une 
pseudo adresse absolue zéro. Ceci est 
obtenu en ajoutant au code généré une 
table dite de relocation, qui est en fait 
une table des emplacements dans le 
module où il y a une adresse relative. 

En effet, lors de l'édition des liens, l'or- 
dre des modules peut être quelconque et 
donc une adresse qui était de + 200 par 
rapport au début d’un module, sera de 
+2345 par rapport au début du pro- 
gramme. Il faudra donc, à ce moment, 
effectuer une correction de l'adresse 
relative +200 par ajout de l'adresse 
absolue du début du module dans le code 
binaire exécutable généré. 

Bien plus (préparez l’aspirine...), il faut 
que certaines adresses d'un module 
soient ‘’connues”’ dans les autres modu- 
les, c'est-à-dire que, si vous avez appelé 
un sous-programme SPROG1, dans un 
autre module, un CALL SPROG1 ne 
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génère pas d'erreur, SPROG1 étant 
externe au module et donc inconnue 
dans la table des étiquettes. 

A une étiquette, c'est-à-dire une adresse 
qui peut être le nom d'un sous- 
programme ou d'une zone mémoire, on 
va donc associer un attribut dit de ‘’visi- 
bilité”’. Ainsi, dans un module, toutes les 
adresses que l’on veut être accessibles 
par d'autres seront déclarées PUBLI- 
QUES (PUBLIC) et toutes celles que l'on 
utilise et qui se trouvent dans d'autres 
modules seront déclarées EXTERNES 
(EXTRN). 

D'autre part, pour ne pas mélanger les 
torchons et les serviettes, dans chaque 
module, on peut clairement séparer les 
zones de code (CSEG) des zones de tra- 
vail (DSEG). Ainsi, lors du LINK, toutes 
les zones de code se retrouvent ensem- 
ble et les zones de travail également. 
Voyons maintenant, dans un exemple 
très simple, comment cela fonctionne. 
Vous pouvez voir dans les listes ci-contre 
que le programme principal PROG. ASM 
utilise deux sous-programmes externes, 
SPROG1 et SPROG2, ainsi qu'une 
adresse d'une zone de données MSG qui 
est l'adresse d'un message contenu dans 
le module PROGMSG. ASM qui contient 
les messages aussi bien de PROG que 
des sous-programmes SPROG1 et 
SPROG2. 

Notez qu'un seul des modules, celui du 
programme principal, contient un END 
avec une étiquette. En effet, l'étiquette 
qui suit le END sera interprétée comme 
étant l'adresse début du programme exé- 
cutable et LINK génère un JMP à cette 
étiquette en début de programme. N'ou- 
bliez pas que tout programme CP/M 
démarre en 100H et c'est à cette 
adresse que LINK fera débuter le code 
binaire constitué par PROG, SPROG1, 
SPROG2 et PROGMSG. 

Comment donc générer le programme 
PROG. COM ? Et bien, il faut assembler 
séparément chaque élément, c'est-à-dire 


PROG, SPROG1, SPROG2 et 
PROGMSG. Voyons donc l'appel de 
RMAC. 


APPEL DE RMAC 
A) RMAC Nom fichier .ASM ($Options) 


Les options sont les mêmes que pour 
MAC, exceptée l'option H qui est rem- 
placée par l'option R qui donne le disque 
destination pour le fichier .REL qui est le 
résultat de l'assemblage. Le disque Z 
indique que l'on ne génère pas de module 
relogeable. 

Bien sûr, comme toujours, si une option 
n'est pas spécifiée, on prend par défaut 
le disque courant. 

Nous pouvons donc assembler nos 
modules par : 

— A) RMAC PROG $ +L 


Assemble A:PROG.ASM, génère 


COMPTAFACIL 


Progiciel de comptabilité générale utilisé depuis 1982 
par des PME, agriculteurs, artisants et libéraux. De la 
saisie au bilan, 8 journaux, 900 comptes (7 chiffres), 
lettrage. Edition des comptes, journaux, grand livre, 
balance, compte de résultat et bilan (provisoire ou défi- 
nitif au choix). 


Fonctionne sur AMSTRAD sous CPM 2.2 ou 3.0 avec 
2 lecteurs, version pour 464, 664, 6128 et PCW 8256. 
Fonctionne sur IBM PC et compatibles (MSDOS) 
















Démo automatique sur PCW 
et compatibles. 
Disquettes de démonstration. 


MER 






B.P. n° 2 St-Philibert 
56470 La Trinité-sur-Mer 
97 55 09 74 








A:PROG. REL, A:PROG. PRN et A:PROG. 
SYM avec, dans la liste, les lignes pro- 
venant des bibliothèques lues par 
MACLIB. 

— A) RMAC PROGMSG $PXSZ 
Assemble A:PROGMSG. ASM, génère 
A:PROGMSG. REL, visu à l'écran de la 
liste et pas de fichier .SYM. 

— A) RMAC SPROG1 $PZSZ 
Assemble A:SPROG1. ASM, génère 
A:SPROG1. REL, pas de liste, ni de 
fichier symboles. 

— À) RMAC B:SPROG2 $RBPZSZ 
Assemble B:SPROG2. ASM, génère 
B:SPROG2. REL, pas de liste, ni de fichier 
symboles. 


Une fois les quatre assemblages termi- 
nés, vous devez être en présence de qua- 
tre modules relogeables PROG. REL, 
SPROG1. REL, SPROG2. REL et 
PROGMSG. REL. 

Vous pouvez donc passer à la phase sui- 
vante de la génération de PROG. COM 
et qui s'appelle l'édition des Liens, plus 
souvent appelée LINK du nom du pro- 
gramme qui réalise l'opération. 


LE LINK 
Voici la syntaxe de l'appel de LINK 


LINK {(d:Nomfichier en 
.COM(IOptions}=)Nom de fichier 
.REL([Options]}, 


(Nom de fichier .REL([Optionsl)) 


Les Options possibles sont nombreuses 
et certaines ont un rapport avec MP/M 
et non pas CP/M, car LINK est capable 
de générer des programmes exécutables 
sous MP/M qui est le système d’exploi- 
tation 8 bits multitache, multiposte de 
Digital Research. Nous ne donnons ici 
que les options qui concernent CP/M. 
Si plusieurs options sont spécifiées, elles 
sont séparées par des virgules. Si le nom 
du fichier .COM n'est pas spécifié, c'est 
le premier nom de module en .REL qui est 
pris. 


En voici la liste : 


A 

Ajout mémoire de travail. Utilise une 
technique où des données temporaires 
sont écrites sur disque. (Mémoire 
‘‘Virtuelle”'}. 

B 

Génère un BIOS sous CP/M Plus. 
Dhhhh 

Fixe l'origine des zones de données à 
l'adresse hexadécimale hhhh. 
Getiquette 

Fixe l'adresse début du programme à 
l'étiquette indiquée. 

Lhhhh 

Adresse de chargement en hhhh. Par 
défaut, cette adresse vaut 100H. 

NL 

No Listing, pas de liste des symboles à 
la console. 

NR 























Ceci est le programme principal mi vi Er PRINTS 
cat! BDOS 
MACLIR DEFCPM call SPROG1 
call SPROGZ 
EXTRN SPROG1, SPROGZ 
EXTRN MSG jmp a 
CSEG 
Lebut: Exi d: MSG END Debut 
PROGMSG.ASM 
5 Modules contenant les messages 
ÜR equ @DH 
LF equ BAH 
PUBLIC MSG, MSG1, MSGZ 
D5EG 
MSG: db "Programme principal’, CR; LF,LF,°’#$ 
MSG1: db Module SPROGI’',CR;LF;,LF,'$ 
MSG: db Module SPROGZ’,CR;LF;LF, #7 
END 














SPROG1.ASM 


5 Ceci est un module separe 


MACLIB DEFCPM 3: Librairie des definitions 


PUBLIC SPROG2 


des fonctions CP/M 

















EXTRN MSG2 
CSEG 3 Debut de la Zone de code 
SPROGZ: 1xi d'MSG2 5 Affiche le message numero Z 
fmv'i £s PRINTS 
call BDOS 
ret 
DSEG 5 Fin du code et debut Zone des donnees 
db Zones de travail du Sous-programme X 
REPT 10 
db er 
ENDM 
END 
5 Ceci est Un module sépare 
MACLIR DEFCPM 3 Librairie des définitions des fonctions CP/M 
PUBLIC SPROGI 
EXTRN MSG1 
CSEG 5 Debut de la Zone de code 
SPROGI1S 1xi dr MSG 5 Affiche le message numero 1 

mvi Es PRINTS 
call &DOS 
ret 
DSEG 5 Fin du code et debut Zane des donnees 
db Zones de travail du Sous-programme 1’ 
REPT ia 
db LS 
ENDM 

L END 
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No recording, des 
symboles. 

Phhhh 

Origine du programme. Par défaut, c'est 
100H. 

Q 

Liste aussi les symboles commencant 
par ?. (Utilisé en PLI80). 

S 

Recherche dans le fichier spécifié comme 
s'il s'agissait d'une bibliothèque de 
modules objets. 

$Cd 

Destination des.messages de LINK: 

d = X:console,Y:imprimante, Z:pas de 
message. 

$ld 

Disque où seront créés les fichiers inter- 
médiaires utilisés par LINK durant son 
exécution. 

$Ld 

Disque où se trouvent les librairies objets. 
(Utilisé avec un compilateur comme 
PLI80 ou Pascal MT ou CBasic, etc). 
$Od 

Disque destination pour le fichier exécu- 
table en .COM. 

$Sd 

Disque destination pour le fichier des 
symboles. 


pas de fichier 


Voyons le cas de notre exemple où nous 
avons quatre modules. 

— A) LINK PROG, SPROG1, SPROG2, 
PROGMSG 

Génère PROG. COM à partir des 4 modu- 
les en .REL spécifiés. Tous les fichiers 
sont sur À: 

— A) LINK  B:PROG=SPROG1, 
SPROG2, PROG, PROGMSG 

Génère B:PROG. COM à partir des modu- 
les. Tous les fichiers sauf .COM sont sur 
A: 

— À) LINK PROG = SPROG1, SPROG2, 
PROG, PROGMSGINL, NR— 

Génère PROG. COM à partir des modu- 
les. Pas de liste des symboles ni à la con- 
sole, ni sur disque. 


Les curieux pourront aller jeter un coup 
d'œil dans le programme PROG. COM 
avec DDT. 

Is y découvriront le JMP à l'adresse 
Début insérée en 100H par LINK et le 
regroupement des zones de code et des 
zones de données. 

Les plus curieux modifieront les modu- 
les en enlevant les DSEG, et après 
assemblages et LINK, observeront le 
résultat alors obtenu. 


LES NUMEROS HORS 
SERIE DE CPC 


GRATUIT* 


* 


Si vous vous abonnez 
à partir du 1/1/87 


Bon de commande page 114 
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CONCOURS INFORMATIQUE 
CPC 


RÉSULTATS DE 
À LA CATÉGORIE 


UTILITAIRE 


Vous avez été très nombreux à nous 
envoyer des utilitaires dans le cadre de 
notre concours. Nous avons reçu du 
classique et de l’inédit, de la gestion de 
fichiers aux courbes en 3D. La taille 
mémoire n'a pas été un critère de sélec- 
tion et des ‘‘petits’’ programmes se sont 
plus qu'honorablement classés. Le 
dépouillement a été effectué avec le 
sérieux qui caractérise CPC, d'après les 
critères suivants : intérêt du thème 
choisi, présentation, clarté de la notice 
explicative, qualité de la réalisation et, 
enfin, compatibilité aux trois modèles de 
CPC Amstrad, ce qui a parfois pénalisé 
les programmes ne tournant pas sur 464. 
Trève de bavardages, voici les résultats 
du concours CPC catégorie utilitaires : 



































e 1er prix : 
Christophe PAVEN de Gien (45) 

pour PHOTO-SPRITE gagne un voyage 
pour deux personnes aux Canaries. 















e 2e prix : 
Fabien SPERANZA de Rosselange (57) 
pour RELIEF gagne un AMSTRAD PC 
1512. 






e 3e prix : 
Pascal DUBUS de Maromme (76) 

pour SAD gagne un walkman et 5 logi- 
ciels de jeu. 












e 4e prix : 
Michel MAIGROT de St-Léger (71) 

pour JUSTIDEM gagne un abonnement 
de deux ans à CPC. 











e 5e prix : 
Michel EMERIAU de Cannes (06) 

pour TURBO-Clavier gagne un abonne- 
ment d’un an à CPC. 




















e 6e au 10e prix : 
— Janick ROBLIN de la Queue en Brie 
(94) 

pour ACCES DIRECT ; 

— Lionel BARRAND de Pau (64) 

pour ART-GRAPH ; 

— Michel CLERGEOT de Cercy (95) 
pour DACTYLO ; 

— Jean-Christophe PETIT de Lomme (59) 
pour POST-FICHE ; 

— Alain DURAND de Mardie (45) 
pour BUDGET ; 

gagnent un livre d'aventure. 

Tous les autres participants recevront 
une bande dessinée. 





TEST 


Tout programmeur ou utilisateur ren- 
contre un jour, sans le savoir, le fléau 
des mémoires vives : la remise en or- 
dre de la zone mémoire affectée aux 
variables ; (se reporter au livre de 
Michel ARCHAMBAULT : PROGRAM- 
MES UTILITAIRES pour AMSTRAD, 
chapitre XVIII) 

Lorsque cette zone est saturée par des 
variables dites "provisoires", le micro 
effectue un nettoyage équivalent à un 
FRE(""). Pendant ce temps, parfois im- 
portant , la gestion du clavier et de l'é- 
cran est interrompue. 

Le phénomène est identique dans le 
cas d'un OPENOUT ou bien d'un OPE- 
NIN. | 

L'ensemble de ces manœuvres sus- 
pend toutes les autres activités du mi- 
cro pendant le temps nécessaire. Ce 
délai, indécelable bien souvent, peut 
représenter 20 % à 30 % du temps total 
d'exécution d'un programme s'il faut dé- 
placer un grand nombre de chaînes de 
caractères. 

Pour dominer la situation, une démons- 
tration s'impose. C'est le but du pro- 
gramme de TEST proposé. 


LES CHAINES 
DE CARACTERES 


Les variables alphanumériques ou chaï- 
nes de caractères assemblées à l'aide 
.de CHR$, MID$, STR$ et celles obte- 
nues indirectement tel que : 

10 A$ = INKEY$ : IF A$ =" " THEN 10 
sont stockées au sommet de la mé- 
moire vive libre, juste au-dessous du 
HIMEM. 

Plus il y a de chaînes ou plus vous tra- 
vaillez sur ces chaînes et plus la zone 
des variables augmente. Vérifiez-le en 
modifiant le contenu de la chaîne B$ du 
programme TEST, ligne 200, par : FOR 
1=0 TO 25. 

Un programme demande donc le res- 
pect de certaines règles passées sous 


Patrick GUYON 


silence dans le manuel d'utilisation de 
l'AMSTRAD, à savoir : 


1) Evitez de déplacer les chaînes 
alphanumériques. Il est préférable 
d'agir sur les index des tableaux, donc 
de paramètrer le programme ; 

2) Pensez à affecter une chaîne nulle 
type A$ = "" aux variables désaffectées, 
3) Ne pas utiliser de tableaux surdi- 
mensionnés : il est toujours possible 
de fractionner le fichier en sous- 
fichiers sauvegardés sur disquette ; 

4) Concevoir les programmes impor- 
tants en modules simples appelés par 
un programme "Talon" de sorte à libérer 
le plus de mémoire vive possible ; 

5) En dernier recours, forcer la remise 
en ordre par un FRE(" ") ou FRE'#"), 
d'effet indentique, juste avant la mani- 
pulation des chaînes. 


LE CAS D'UN OPENOUT 
ou OPENIN 


A l'exécution d'une commande de ce 
type, l'AMSTRAD descend le HIMEM de 
4Ko avec toutes les variables définies 
en tableau DIM. Celà prend du temps. 
Sur un CLOSEOUT ou bien CLOSEIN, 
ça recommence en sens inverse. 

Michel ARCHAMBAULT préconise de 
figer le HIMEM au plus bas en tête de 
programme mais la perte de 4 Ko est 
alors inévitable. Ce n'est pas toujours 
nécessaire heureusement. 


LE PROGRAMME TEST 


Ilcomporte 

1) Lignes 100 à 160 : un tableau "large- 
ment” dimensionné puisque la place 
prise par le programme est faible. C'est 
pour l'OPENOUT. 

2) Lignes 200 à 220 : une chaîne de 
caractères bien dodue. C'est pour la 
remise en ordre. 

3) Lignes 290 à 370 : une boucle mani- 





pulant 1.000 fois une variable simple. 

4) Lignes 390 à 590 : l'édition des du- 
rées pour chaque remise en ordre. 

Après un RUN et 1 minute d'attente, le 
bilan des opérations est affiché. 

Selon les modifications apportées, 
vous constaterez que les temps morts 
peuvent varier du simple au double. 

Une autre possibilité du programme est 
de vous permettre de juger de l'effica- 
cité d'un tri ; par exemple le tri "à bulle" 
d'un tableau. 

Dans ce cas, il suffit de : 

— Deleter les lignes de 10 à 220; 

— Renuméroter les lignes 230 à 320 et 
340 à 630 en fonction du programme à 
tester ; 

— Insérer le tri en lieu et place de la 
ligne 330 ; 

— Eventuellement, modifier le test 
T2>10 ligne 350 pour tenir compte du 
temps de traitement. 

POUR MEMOIRE : 

La fonction FRE(0) donne la place mé- 
moire disponible. 

La fonction FREl'<caractère>") ou 
FRE("") provoque la remise en ordre de 
la mémoire. 

La fonction ERASE AS$ annule le ta- 
bleau DIM A$. Faites le test en suppri- 
mant le REM en ligne 480. 

La fonction TIME comptabilise les ar- 
rêts supérieurs à 0,34 seconde pour te- 
nir compte du temps d'exécution de la 
boucle (ligne 350). 

C'est fou comme ces micros peuvent 
se faire attendre... 


BIBLIOGRAPHIE 


- Analyse d'un ramasse poussière : 
LIST n° 4 Novembre 1984, Michel 
ARDITTI 


- Programmes utilitaires 

pour AMSTRAD : 

Editions SORACOM 1986, Michel 
ARCHAMBAULT 
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10 ‘FROGRAMME FOUR RENCONTRER 

20 ‘UN VIDAGE de MEMOIRE 

30 ‘ 

40 MODE 2:DEFINT I-N 

90 n=1000 

690 

70 ‘REMPLISSAGE DU TABLEAU 

80 ‘ 

90 FRINT'ATTENTION, "; 

100 DIM A$(3:00,8) 

1109 FOR 1=0 TO 2:00 

120  AS(I,0)=CHRS (46) +CHR$ (47) +CHRS# (48) 
130 FOR J=0 TO 8 

140 AHS(I,J)=A$(I,0) 

150 NEXT J 

160 NEXT I 

170 

180 ‘CREATION CHAINE DE CARACTERES 

199 

200 FOR 1=0 TO 2523 

210  B+=BH+CHRE (I) 

220 NEXT 

230 

240 ‘OCCUPATION MEMOIRE 

250 

260 FRINT'c'est parti !" 

270 F=0:TB8=TIME 

280 ‘ . 

290 WHILE K<n 

300 LOCATE 1,Z3:FRINT L'KRamassage‘“; 

310 IF L>1 THEN PFRINT'sS ‘"; 

320 T=TIME 

350 R$=R$+"" 

340 TI=TIME: T2=T1-T 

350 IF T2>10 THEN laps=laps+T2:L=L+i 
360 K=F+1 

370 WEND 

Z80 

390 IF L>1i THEN FRINT'ont dures'";ELSE FR 
INT" a dure"; 

400 M=laps/3:GOSUB 620: M1=M 

419 

420 FRINT:FRINT'"ce n'est pas FINI..." 
430 T=TIME: X=FRE ("#"):TI=TIME 

440 PRINT:PRINT'"'Le ramassage final prend 
encore"; 

450 M=(TIi-T)/3:GOSUB 620: M2=M 

469 

470 FRINT:FRINT'"'et un acces disquette de 

mande"; 

480 ‘ERASE A$ 

490 T=TIME:OPENOUT"BIDON":T1=TIME: CLOSED 
UT 

500 M=(TIi-T)/3: GOSUR 620: M3=M 

910 

S20 FRINT:PRINT'TOTAL :"; 

530 M=M1+M2+M3: GOSUB 620: M4=M 

540 ‘ 

550 FRINT:PRINT'"pour un fonctionnement d 

e"; 

S60 T9=TIME: M=(T9-T8) /3: GOSUB 620: MS5=M 

570 FRINT:PRINT"'soit :"INT((M4/MS)#10"4) 
/1900"7%" 

980 FRINT 

9590 ‘ 

600 END 

619 ” 

620 S=M/100:PRINT S;:1F S>1 THEN FRINT'"'s 

econdes"ELSE FRINT"seconde" 

6530 RETURN@ 


À L'OUEST DU NOUVEAU st 
Micronaute 


9, rue Urvoy de Saint Bedan 
44000 NANTES 
Tél. : 40.69.03.58 


SPECIALISTE AMSTRAD 
Toute la gamme CPC et PCW 
aux prix AMSTRAD 
avec le service MICRONAUTE 


STATION TECHNIQUE 


Dépannage rapide sur place. 
AMSTRAD. ATARI ST. COMMODORE 
THOMSON. 


SERVICE FORMATION 


e Locoscript + D Base Il + Multiplan 
Ex. : Locoscript 3 j/1690 F TTC 
(conventions de stages possibles) 
LIBRAIRIE : MICRO APPLICATION 
P.S.I 
SYBEX 
EYROLLES, etc... 


W LOCATION 
(8256) ......... 


SPECIALISTE AMSTRAD PC 


RESERVEZ-LE MAINTENANT : 
Couleur 





























































Monochrome 






PC 1512 SD 4997 F HT [PC 1512 SD 6890 F HT 
PC 1512 DD 6290 F HT [PC 1512 DD 8190 F HT 
PC 1512 HD 20 9990 F HT | PC 1512 HD 20.111890 F HT 









LA REVOLUTION 
PC en démonstration permanente 
DMP 3000 disponibles 
M SELECTION MICRONAUTE 


* SOFTS 
NOUVEAUTES, arrivages toutes les semaines 
SPECIALISTE : LORICIELS 
ERE Informatique 
ACTIVISION 
ELECTRIC DREAMS, 
UTILITAIRES : Traitements de texte 
Fichiers 
Tableurs 
Compta/facturation,. 
LOGICIELS EDUCATIFS 
MASTERTRONIC : 29,90 F 
Nombreux titres. 
NOMBREUX JEUX 8256 


* EXTENSION MEMOIRE DK TRONIC 
* DIGITALISEUR D'IMAGES 

* CORDON 

* RUBAN IMPRIMANTE 

* HOUSSES 






M INTERFACE TUNER TV. 


16 chaines pré-programmables PAL/SÉCAM. 
Prise Péritel - Comp. Canal + - Branchement 
Spécial AMSTRAD sursis 1390 F TTC 


M CREDIT Dossier CREG immédiat 


im VPCaenvoi rapide 
Commande : Tél 
Micronaute VPC 
9, rue Urvoy de St Bedan 44000 Nantes 
Port : 20 F Softs 70 F Machine 

+ 30 F contre-remboursement 










40.69 .03.58 
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Si vous êtes lassés par vos 
jeux, ne les gardez plus, LT 
échangez-les contre des 















nouveautés ou des titres que vous NP 
ne connaissez pas encore avec: le livre + la cassette 
BOUOMERANN Se 
Jeux - Gestion 
Education - Domestique 
Impression de documents 
: Un best-seller 
BP 585 — 74014 ANNECY Cedex - Tél. 50.67.70.42 D sn en ts ne 
Fr PC === = = = = © = = = = = = = = = LS Bon de Commande 
I \ Je souhaite recevoir votre documentation sur le I SR 
j fonctionnement du centre Boomerang j 21, bd Le La Fraternité - 44100 NANTES 
y NOM: i Exploitez votre Amstrad. 103 F - Port gratuit. 
1 ADRESSE: l Nom Prénom 
L CODE POSTAL: VILLE: nl Since 


Luunumonnnmeanmn——…x………lJ 


PROTÉGER VOTRE AMSTRAD 


TOUS LES SACS ET HOUSSES SONT ADAPTÉS A CHAQUE TYPE DE MATÉRIEL ET LES PASSAGES DE CABLES SONT PRÉVUS. 


] Sac ‘pour Amstrad (clavier) 


PC 464[16640 61280 PCW 82560] 
oloris: bleu, gris ou sable. 
RS SA seed 290 F TTC 











Sac pour moniteur Amstrad mono- 





chrome [1 couleur. [1 
Coloris: bleu, gris ou sable. -, © 
PriXE see se sonne :. 400 F TTC 


Cochez 
bien 

les cases 
et 
couleurs 








[ Housse pour Amstrad (claier) 
CPC 46406640 61280PCW 82560 
Coloris: beige, blanc, bordeaux, noir, 


marron. ; 7 ” 
130 F TTC Pochettes disquettes 3°” ou 3,5 


] pour 1 disquette 
CE] Housse pour moniteur Amstrad. Nue © pour 6 disquettes .... 
Coloris: beige, blanc, bordeaux, noir, [] pour 10 disquettes .. 150 FTTC 
marron. -] pour 32 disquettes .. 200 F TTC 
PERS en as de art de 130 F TTC Coloris: gris, bleu ou sable 














Les sacs pour claviers AMSTRAD 464 - 664 - 6128 comprennent 1 poche pour le clavier plus 1 autre du même volume pour y ranger les accessoires. 
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IZARD C 


POUR COMMANDER: Retournez-nous cette publicité en cochant le ou les pro- 
duits que vous désirez recevoir et en remplissant le bon ci-dessous. Pour les coloris, 
rayez les mentions inutiles. 


@ Port PTT à ajouter au montant de votre commande: 25F 
@ Joindre votre règlement par chèque ou mandat à votre commande. 


Prénom 


27, Bd de la Fraternité 44100 NANTES Signature: 








FRAMEWORK 


PREMIER 


Daniel MENIVAL 


FRAMEWORK PREMIER est un logiciel 
intégré regroupant un traitement de 
texte, un tableur, un gestionnaire de 
fichier et un module graphique. Ashton- 
Tate, qui vend Framework 2 à 7950 F, 
a simplement supprimé le module de 
communication, permettant de le faire 
fonctionner sur réseau, pour le vendre à 
un prix ‘’cadeau””. 

Framework Premier a la particularité d'in- 
tégrer des menus déroulants et des fené- 
tres (le faisant ressembler à un logiciel 
sur Macintosh : le goût du jour...). Par 
conséquent, toutes les informations se 
trouvent dans des cadres occupant 
momentanément une partie de l'écran. 
Vous voulez ‘‘bâtir’’ votre annuaire télé- 
phonique ? Vous validez l'option ‘’Base 
de données’” du menu déroulant et vous 
pouvez commencer à taper vos numé- 
ros. Une fois celà fait, vous voulez édi- 
ter un graphe avec un tri Paris/Province, 
pas de problème, vous sélectionnez un 
cadre vide et vous demandez de ‘‘Des- 
siner un nouveau Graphe’. Pour le trai- 
tement de texte, c'est la même chose, 
vous prenez un cadre vide et vous pou- 
vez commencer à taper votre lettre. 
Du point de vue utilisation, Framework 
Premier est très simple. Il suffit de con- 
naître quelques touches pour pouvoir 
commencer à travailler. Par contre, si 
vous voulez créer une application com- 
prenant un menu et utilisant l'interacti- 
vité des fichiers, vous allez être con- 
fronté à de sérieux problèmes. En effet, 
FRAMEWORK PREMIER, contrairement 
à Framework 2, ne peut fonctionner 
qu'en mémoire vive ; par conséquent, 
vous ne disposez, sur un PC1512 stan- 
dard, que de 512 Ko ou de 640 Ko si 
vous avez étendu la mémoire de votre 
Amstrad (640 Ko étant la limite mémoire 
adressable sous MS-DOS). Donc, pour 
les grosses applications, il vaut mieux 
s'abstenir car un fichier ne peut compor- 
ter plus de 300 enregistrements de 120 
caractères ! C'est quand même bien peu 
quand on pense que ce logiciel est dédié 
aux ‘‘professionnels"". Mis à part ce gros 
problème, il y a celui concernant les 
réseaux. Si vous travaillez dans une 
entreprise informatisée, il y a de fortes 
chances pour que vous puissiez utiliser 
des logiciels en mode multi-utilisateurs : 
là FRAMEWORK PREMIER ne vous le 
permet pas. 

En ce qui concerne le tableur, c'est cer- 
tainement le meilleur module du logiciel. 
Les formules de calcul étant très proches 


_ BANC D'ESSAI 





90,00 F H.T., qui aurait pu prédire une chose pareille ? En effet, 
Ashton-Tate et la Commande Electronique ont légèrement sim- 
plifié leur logiciel à 7950 F pour le mettre à un prix au niveau 
d'AMSTRAD. De plus, contrairement à ce que doivent penser certai- 
ne perce Framework Premier foncitonne sur tous les compa- 
tibles PC ! 


du langage naturel cela simplifie énormé- 
ment les choses. 

Pour les graphiques, la définition est très 
moyenne. Les traits sont grossiers et les 
couleurs, pour les possesseurs de moni- 
teurs couleurs, sont assez fatiguantes. 
Par contre, il est très facile et rapide de 
les créer ou de les modifier. 

Le module d'impression est de bonne 
qualité. Mis à part le problème rencon- 
tré avec l'italique, le traitement de texte 
permet des courriers relativement pro- 
pres. Les graphes retrouvent leur intérêt 
perdu à l'écran (la précision, à défaut de 
couleurs, est tout de même de meilleure 
qualité). 

Quant à l'interactivité des différents 
modules, celle-ci laisse à désirer. Vous 
pouvez sans aucun problème récupérer 
des données du tableur pour les mettre 
dans votre base de données ou l'in- 
verse ; mais vous ne pouvez pas le faire 
avec le traitement de texte ainsi qu'avec 
les graphiques. || est quand même dom- 
mage de ne pas pouvoir insérer du gra- 
phisme dans les textes ! 





Parmi les disquettes originales, vous en 
trouverez une intitulée ‘‘Utilitaires'”. Elle 
vous permettra de configurer correcte- 
ment votre imprimante, de récupérer des 
fichiers provenant d'autres logiciels 
(Lotus 1.2.3., Visicalc, Wordstar),.….. Ces 
petits utilitaires, quoique vous puissiez 
penser, sont très pratiques et ne sont 
malheureusement pas toujours fournis 
avec tous les logiciels. 

Malgré toutes les restrictions que pos- 
sède ce logiciel, il faut quand même 
saluer l'effort fourni par ASHTON-TATE 
et LA COMMANDE ELECTRONIQUE en 
commercialisant ce logiciel à 990,00 F 
HT. Ils font partie des seuls à l'avoir fait 
(il y a également BORLAND avec 
REFLEX). Bien que le problème de 
mémoire empêche le traitement de gros 
fichiers, il n'en demeure pas moins un 
logiciel intégré avec tout l'attrait que cela 
comporte. Nous n'attendons plus qu'une 
chose : un Lotus Premier pour faire un 
test comparatif. FRAMEWORK PRE- 
MIER, REFLEX, LOTUS... le match serait 
des plus intéressant ! 
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Pierre TACONNET 





Les lecteurs qui utilisent TURBO PAS- 
CAL sous CPM rendront grâce à Gilles 
BEILVERT de Saint-Aignan-de-Granlieu, 
et néanmoins en génie électrique à 
l'INSA de RENNES, quand ils utiliseront 
son truc. 

Lors d'une tentative d'écriture sur dis- 
quette, le message BDOS ERROR ON A : 
R/O est la punition pour ceux d'entre 
vous qui ont oublié d'entrer au préalable 
CTRL C lors d'un changement de dis- 
quette sous CPM 2.2, ce qui provoque 
une interruption du programme et un 
retour illico à CPM. Le texte est alors 
perdu à moins d'un miracle, du moins 
c'est ce que vous pensiez puisque vous 
aviez réservé pour Lourdes. 

Voici la méthode miraculeuse. 
Accrochez-vous au bastingage, elle est 
longue mais qui veut la fin. 

— placez dans votre lecteur la face 4 
des disquettes système ; 

—  chargez le débugger en entrant DDT 
(pour tuer la vermine) ; 

— l'adresse de début de votre texte est 
soit H7957, soit H8118 si vous aviez 
demandé en option l'affichage des mes- 
sages d'erreur sous TURBO PASCAL ; 
— Entrez alors D7957 (ou D 8118) puis 
RETURN ce qui vous permettra d'aller à 
la pêche au texte égaré en visualisant le 
contenu de la mémoire par paquets de 
192 octets. L'affichage s'effectue à gau- 
che en HEXA, à droite en correspon- 
dance ASCII ; 

— pour visualiser les blocs suivants, 
entrez D puis RETURN et continuez ainsi 


Si vous avez l'intention de CREER 
ou si vous avez déjà créé 


VOTRE BOUTIQUE INFORMATIQUE 


«rejoignez nous avec la franchise 
SON VIDEO 8000 et devenez un 
distributeur POINT MICRO pour 
MOINS DE 20 000 Frs !11 


DISTRIBUTEUR AGREE AMSTRAD 


COMMODORE 
ATARI,ORIC et COMPATIBLES ÊC , 


RENSEIGNEMENTS 
56 92 91 78 
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en comptant le nombre de blocs, jusqu'à 
la découverte de la fin de votre texte. 
Notez alors le nombre de blocs et 
l'adresse de fin du dernier bloc (ajoutez 
16 (décimal) à l'adresse (hexa) de la der- 
nière ligne) ; 
— vous suivez toujours ? Alors passons 
à la phase récupération ; 
— le texte sera transféré à l'adresse 
H100 par la commande suivante : 
M, ADDEBUT, ADFIN,100 
Où ADDEBUT sera soit 7957, soit 8118 
et ADFIN l'adresse que vous avez rele- 
vée tout à l'heure. Si vous ne devinez pas 
à quoi correspond 100, inscrivez-vous à 
la maternelle ! 
— votre texte étant alors transféré, 
remettez votre disquette de travail et 
entrez CTRL C ce qui vous replacera 
sous la coupe de CPM et vous permet- 
tra d'utiliser la commande SAVE qui 
nous autorisera à parachever ce beau 
travail ; 
— un peu de calcul, maintenant ! 

= (( 192 * mblocs ) / 256 ) + 1 
m étant le nombre de blocs que vous 
avez comptabilisés précédemment, n 
nous permettra de sauvegarder le fichier 
perdu selon la syntaxe : 
SAVE n TOTO . PAS 
Cette formule sauvegarde n blocs de 
256 octets sous le titre TOTO.PAS. 
— Si vous avez maintenant la bonne 
idée de rentrer sous TURBO PASCAL et 
de charger TOTO.PAS, vous constaterez 
qu'il vous faudra aller à la gare pour vous 
faire rembourser votre réservation pour 
Lourdes. Divin, non ? 
Quand vous vous êtes engagé par erreur 
dans une fenêtre à options verticales de 
MENU2 +, vous êtes en cage sans autre 
possibilité que d'entrer dans une option. 
Voici de quoi scier les barreaux. 
— Entrez la ligne : 30197 IF INKEY (0) 
<>-1 AND PV = 1 OR INKEY (47) 
< >-1 THEN GOTO 30120 
— Créez une ligne 30120 identique à la 
ligne 30205 à ceci près que le RETURN 
final sera remplacé par GOTO 30120 
Quand ils se sentiront pris au piège, les 
nerveux frapperont autant qu'il le faudra 
la flèche verticale (haute) de curseur pen- 
dant que les lymphatiques trouveront 
l'énergie nécessaire à un appui sur la tou- 
che d'espace. Et s’il leur en reste, ils ser- 
reront même chaleureusement la main de 
David LACASSAGNE de BARBAZAN 
DEBAT. 
Vous vous souvenez sans doute du truc 
de Christophe MALLET (CPC n° 14) pour 
la récupération des programmes de 464 
dont le chargement était incomplet du 
fait de l'apparition d'un READ ERROR. La 
solution était intéressante, elle évitait 
d'avoir à retaper tout le programme, mais 
incomplète puisque le sauvetage ne con- 
cernait que les fichiers se situant en 
amont du READ ERROR. Patrick 
LEWANDOWSKI de SECLIN vous offre 
le complément. 
Le programme, en assembleur et en deux 
parties, est implanté par à un chargeur 
BASIC. 
La première partie, en &ABOO, lit la fin 





du programme et la charge en mémoire. 
La seconde, en &AB4C, effectue un 
transfert d’une adresse à déterminer vers 
&170 ce qui est nécessaire quand le 
début de bloc tombe en pleine ligne 
BASIC. 

La perte de programme est ainsi rabais- 
sée à 2 Ko maximum. 

10FOR1% = O TO 92:READ A$:POKE 
&ABOO + 1%, VAL (‘'&'"+A$): NEXT 
20 DATA F5,C5,D6,E5,DD,E5,21,70, 
01,22,57,AB,E5,CD,6E,BC,21,60,AB 
30 DATA 11,1C,00,3E,2C,CD,A1,BC, 
2A,57,AB,ED,5B,73,AB,8E, 16,CD,A1 
40 DATA BC,CD,71,BC;E1,ED,4B,73, 
AB,09,3A,71,AB,FE,00,28,D2,2B,22 
50 DATA 83,AEË,23,11,70,01,B7,ED, 
52,22,57,AB,DD,ËE1,E1,D1,C1,F1,C9 
60 DATA F5,C5,D5,E5,21,70,01,11, 
70,01,01,00,00,ED,B0,18,EA 

Le mode d'emploi maintenant : 

— récupérez le début de programme 
selon le truc précédent ; 

— exécutez un RESET et positionnez la 
cassette sur le bloc suivant le READ 
ERROR ; 

— chargez et exécutez le programme 
BASIC ci-dessus ; 

— lancez la routine langage machine par 
call&ABOO et patientez jusqu'à ce que le 
dernier bloc soit rencontré ; 

— Cls, puis en mode direct : ‘ 
FOR 1=&170 TO &200:PRINT HEX$ 
(PEEK(1));"" ';:NEXT | 

— cherchez sur l'écran le premier octet 
à O et notez la valeur hexa de l'adresse 
du premier octet qui suit ce O ; 

— entrez POKE &AB51, adresse haute, 
puis POKE & AB52, adresse basse ; 
— après un CALL &ABAC, listez votre 
programme. Si la liste est bonne, passez 
à la suite, sinon reprenez au CLS ; 

— Sauvez votre programme et suivez la 
sauvegarde d'un RESET ; 


— chargez la première partie et ‘’mer- 
gez'' la seconde. 

Qui a dit ‘’OUF !”” ? 

APPEL A TRUC 

Un lecteur regrette, nous aussi, l’ab- 


sence de témoin lumineux qui permet- 
trait de signaler l’état de CAPS LOCK. 
Que les rois de la bidouille se mettent en 
œuvre pour découvrir le système le plus 
léger posible. Ils en seront récompensés. 
Ne cachons pas que la difficulté réside 
dans la découverte d'un point de sortie 
de la bascule CAPS. 


LES NUMEROS HORS 
SERIE DE CPC 


GRATUIT* 


* Si vous vous abonnez 


à partir du 1/1/87 
Bon de commande page 114 


UTILITAIRE 





DEVERROUILLONS LES RSX 


Bernard BESSE 


à la lettre) par son auteur. 


Le à laquelle une routine RSX doit être chargée est fixée 


‘utilisateur peut souhaiter modifier cette adresse pour 2 


raisons : 


— récupération de mémoire par élévation de l'adresse ; 
— chargement de plusieurs RSX qui se recouvrent. 
Les utilisateurs pratiquant l’Assembleur résolvent ce problème en 


principe aisément. 


Les autres en sont généralement réduits à mettre la oules routines 
au frigidaire pour une durée indéterminée. 
Nous sommes ici pour venir en aide à ces derniers. 


En effet, il existe un procédé EXTREMEMENT SIMPLE per- 
mettant de transformer CERTAINES (nous verrons la raison 
de cette restriction) routines RSX en routines ‘‘ordinaires’” 
(CALL adresse, paramètres). 

Prenons l'exemple de la routine RSX IKDOKE (Double pOKE 


Voici cette routine (fort utile au demeurant) : 


DATA 01,09,A0,21,14,A0,C3,D1, BC,OE,AO,C3,18,A0,4B,44 
DATA 4F,4B,C5,00,00,00,00,00, DD,6E,04,DD,66,05,DD,5E 
DATA 02,DD,56,03,DD,4E,00,DD, 46,01,19,71,23,70,C9 


avec déKalage) qui implante une valeur sur 16 bits aux adres- 
ses Base +Decal et Base +Decal+1. 
La syntaxe en est la suivante : 


Le processus de transformation est le suivant : 


CALL &A000 Trouver 2 octets D1,BC 


IKDOKE, Adresse de base, Decalage, Valeur à implanter 


INTERFACE TV 


Ces deux octets figurent toujours au début d’une routine RSX. 


dun 














PRIX 1390 00 F TTC 


CARACTERISTIQUES TECHNIQUES 


16 chaînes PAL/SECAM à recherche automatique 
Prise Péritel pour CANAL + 
Equipée spécial moniteur AMSTRAD 


| REVENDEURS, CONTACTEZ-NOUS ! | 


D ———————<€ 


Ÿ BON DE COMMANDE 
Je désire recevoir : 





















Article : quantité : prix total : 
Participation aux frais de port : ajouter 50 F - prix total : 
[ Ci-joint mon règlement par chèque : 


DEIA O Je règle contre remboursement à la livraison (frais en sus) 


62, cours de l’Yser Nom : Prénom _ 
33800 BORDEAUX Adresse : 
Tél.: 56.92.91.78 l Ville : Code postal : a l 
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Ils sont précédés soit de C3, soit de CD. 
Nous trouvons effectivement C3,D1,BC en positions 7, 8 et 9. 


Chercher le nom de la commande (KDOKE) 


Ce nom est toujours au-delà de D1,BC. 
Avec une table des codes ASCII, nous trouvons que KDOKE 
se dit 4B,44,4F,4B,45 en hexadécimal. 
A partir de la position 15, nous trouvons 4B,44,4F,4B,C5. 


Cette différence tient au fait qu’au dernier caractère est tou- 
jours ajouté 128 décimal, c'est-à-dire 80 hexa. 

Nous avons donc bien trouvé le nom. 

Attention : le nom est toujours suivi d’un octet OO, mais pas 
forcément de plusieurs. 


Entre D1 BC et le nom, chercher un octet C3 


Nous le trouvons en position 12. 

Immédiatement après, nous trouvons 18,A0 qui est une 
adresse que nous devons lire en l'inversant : AO18. 

Cette adresse est celle de la routine ‘‘ordinaire’’ lorsque la 
routine RSX se trouve à son adresse de chargement, &AO00 
dans le cas présent. 

Si nous faisons en mode direct PRINT &A018-&A000, nous 
obtenons 24 (&18). 


24 est le nombre d'octets à SUPPRIMER ou à REMPLA- 


CER par O0 pour enlever à la routine son préambule RSX. 





LE RESULTAT 


Nous admettrons que la routine CALL est : 


DATA 00,00,00,00,00,00,00,00, 00,00,00,00,00,00,00,00 
DATA 00,00,00,00,00,00,00,00, DD,6E,04,DD,66,05,DD,5E 
DATA 02,DD,56,03,DD,4E,00,DD, 46,01,19,71,23,70,C9 ‘ 


ou bien 


DATA DD,6E,04,DD,66,05,DD,5E, 02,DD,56,03,DD,4E,00,DD 
DATA 46,01,19,71,23,70,C9 


Dans le cas présent, cette dernière routine peut effectivement 
être chargée à une adresse ‘quelconque’ et mise en œuvre 
de la façon suivante : 


100 KDOKE = &A500 
110 MEMORY KDOKE - 1 


200 LOAD ‘’KDOKE”’, KDOKE 


500 CALL KDOKE, ADR, 22, VALEUR'--KDOKE plus parlant 
que &A500 


VALIDITE DU PROCEDE 


Le procédé qui vient d'être exposé ne permettra pas de 
DEVERROUILLER toutes les routines RSX. 


Une ligne téléphonique est à votre disposition, vous met- 
tant en contact direct avec la rédaction. Ceci est un ser- 
vice sans égal ! Respectez simplement les horaires et les 


jours que nous vous indiquons : 
MERCREDI de 9 h à 12h et de 14h à 17h. 


VENDREDI de 9 h à 12 h seulement. 
Tout appel en dehors de ces créneaux sera refoulé : ne 
dépensez pas inutilement votre argent ! 


Le numéro : 99.52.98.11. 





En premier lieu, il ne traite pas le cas des routines RSX ayant 
plusieurs points d'entrée (plusieurs noms de commande). 
Ensuite, il se peut que la disparition du préambule RSX soit 
insuffisante pour rendre sa mobilité à la routine. 

Prenons un exemple : 

Un message d'erreur concernant le NOMBRE de PARAME- 
TRES est incorporé à la routine RSX initiale ‘’KDOKE'’. Ce 
message est affiché lorsque ce nombre est différent de 3. 
En enlevant le préambule RSX de cette routine modifiée, nous 
obtenons : 


DATA 00,00,00,00,00,00,00,00, 00,00,00,00,00,00,00,00 
DATA 00,00,00,00,00,00,00,00, FE,03,20,17,DD,6E,04,DD 
DATA 66,05,DD,5E,02,DD,56,03, DD,4E,00,DD,46,01,19,71 
DATA 23,70,C9,21,3F,A0,7E,B7, C8,CD,5A,BB,23,18,F7,6E 
DATA 62,72,65,20,70,61,72,61, 6D,2E,6E,27,65,73,74,20 
DATA 70,61,73,20,33,0D,0A,00 


Le message commence en position 64 par 6E 62 72 65 20 
70 61..(nbre pa..). 

Mais la routine a besoin de l'adresse du message, adresse don- 
née en positions 53 et 54 : 3F, AO, c'est-à-dire &AO3F. 
On voit bien que si la routine est chargée à une autre adresse 
que AO00, AO3F ne correspondra plus du tout au début du 
message. 

On dit en bon franglais que la routine n'est pas relogeable 
(anglais RELOCATABLE), ‘’to locate’”, signifiant TROUVER 
ou FIXER LA POSITION; la notion de logement ou de local 
en est absente. 

Nous vous engageons, malgré cette aberration linguistique 
à DEVERROUILLER les Routines RSX. 

Vous en serez récompensés par la possession de petites mer- 
veilles RELOGEABLES que vous chargerez aux adresses con- 
venant à vos divers programmes BASIC. 


RSX ou pas RSX 


Nous prenons le risque de donner une opinion personnelle sur 
cette question. Sans être exhaustif, voici quelques 
propositions : 


— Si une routine CALL n'est pas relogeable, la transfor- 
mer en RSX. 


— Si une routine CALL est relogeable, ne pas la transfor- 
mer en RSX. 





Néanmoins, un élément supplémentaire est à prendre en 
compte : 







— Si la routine CALL relogeable doit être utilisée en mode 
COMMANDE (ou mode DIRECT) sa transformation en RSX 
peut être souhaitable. 

Il sera alors éventuellement nécessaire de lui adjoindre un 
message d'erreur, message qui aura d’ailleurs pour effet 
de la rendre encore moins relogeable. 









Dans ces conditions, il peut être utile d'avoir 2 versions 
de la même routine, l’une CALL, l'autre RSX. 


Allo, 
CC / 


99.52.98. 1 1 e 
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SERRES 


CE QUE VOUS OFFRE 
NOTRE SERVICE SUR MINITEL 


Nous disposons d'un service MINITEL 
que de nombreux lecteurs connaissent bien maintenant. 
Outre l'information diffusée, 
il devient un instrument de dialogue permanent 
entre vous et notre rédaction. 


Ne ET AU LES PETITES ANNONCES 


Dès que la revue est chez l'imprimeur, le | 24h sur 24h, 7 jours sur 7, elles sont acces- 
sommaire apparaît sur la page concernée. | Sibles. Nous venons d'améliorer ce service. 
| Depuis le 1er janvier 1987, c'est chaque 
Le lecteur peut également y trouver la liste | jour que les annonces sont mises en place. 
des produits spécifiques à sa revue (dis- | De plus, vous pouvez DIRECTEMENT pas- 
quettes, cassettes, livres). ser vos annonces sur le serveur. 


LA BOITE A LETTRES | DES INFORMATIONS 


Déjà utilisée par des lecteurs de CPC et de | Des informations sont à votre disposition et 
Mégahertz, elle vous permet de poser vos | régulièrement mises à jour, ainsi que les 
questions techniques chaque jour — 24h sur | éventuelles corrections de listings en cas 
24h — sans avoir à attendre que la ligne de | d'erreur. 

téléphone soit libre les mercredi et vendredi. | 

Les correspondances sont relevées chaque 

jour! : | Nos nombreux revendeurs peuvent utiliser 
De plus, vous pouvez, entre lecteurs, écrire, | le MINITEL pour passer commande. L'en- 
recevoir des messages, faire des échanges | semble des produits disponibles est présen- 
techniques. té. Nous avons simplifié au maximum la pro- 
cédure. Lecteurs et revendeurs peuvent aus- 


si vérifier si le produit est disponible et quel 
est son prix de vente public. 





Les boîtes à lettres sont ouvertes sous votre 
pseudo aux normes télématiques. 


36.15, TAPEZ MHZ 
ET FAITES VOTRE CHOIX 
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I Pour nous aider à vous proposer des articles et des listings tou- 
prop g 
| jours plus intéressants, nous vous invitons à les noter en fonction 
de l'intérêt que vous leur accordez. 

I CPC sera ainsi encore plus proche de ses lecteurs | 
I Pour vous encourager à participer à ce sondage mensuel, nous 
ÿ tirerons au sort 3 bulletins qui recevront un cadeau surprise. 
I 
I 
I 6 Actualité 
8 17 Cherry-Paint 
3 Amstraduction 
| 29 -Le classement | 
| instantané par substitution 
I 36 Amslaine 
i 47 Branchez le turbo 
| 51 Au cœur du 6128 

53 La gestion des réponses 
| 
” 60 Starwar 
I 72 Au cœur du PCW 
| 80 Recopie d'écran universelle 
82 Felis Catus 
î 86 Initiation à CP/M 
Il 89 Test 
I 95 Déverrouiller les RSX 
} 99 Un 5’"1/4 en premier drive 
| 100 Gestion d'un congélateur 
| 104 Scrolling 
j 106 Ecriture évoluée 
l Nos rubriques (en général) 
| Trucs et astuces 
[ Courrier 
I 
3 Essais matériels nouveaux 
F Essais logiciels 
I Vitrine du libraire 
î 
| 

| ; Je possède un [] CPC 464 (drive) [1 664 [1 6128 
I Nom : ............. Prénom .............. — PCW 8256 [1 8512 [1 PC 1512 
| Adresse : ....,..,..:.................... A retourner à : Editions SORACOM ‘'Sondage Mensuel 

Age : : î CPC’, La Haie de Pan, 35170 Bruz 
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5 POUCES 1/4 
EN DRIVE A 


Heddy MENTALECHETA 


eureux possesseurs d’un drive 5 pouces eu économise 


plusieurs dizaines de francs à chaque achat de 


squette, mais 


quel malheur de constater que CPM et nombreux jeux ne se 
chargent qu’à partir du Drive A... Cela oblige à conserver un stock 
de 3 pouces important et rend les manipulations délicates. Pour 5 F, 
une demi-heure d'attention et un peu de précision pour faire 10 sou- 
dures, votre problème sera résolu et vous pourrez choisir votre Drive 
A comme il vous plaira, 3 pouces d’origine, ou 5 pouces 1/4 


extérieur ! 


QUESTION : 

Etes-vous prêt à ouvrir le ventre de votre 
Amstrad adoré ? Si oui, munissez-vous 
d'un tournevis cruciforme, d'un fer à 
souder, de 4 petits fils de 10 cm envi- 
ron, d'un petit interrupteur double à glis- 
sière (à 5 F dans les magasins d'électro- 
nique). Cette modification, effectuée sur 
un 6128 est réalisable sur un 664, bien 
entendu... 

1. Ouvrez votre Amstrad : (7 vis dessous 
+ 2 sur le côté du drive). N'oubliez pas 
que dès l'ouverture, vous perdez le béné- 
fice de la garantie. 

N.B. : Attention une des sept vis est plus 
longue que les autres, son emplacement 
est indiqué par une flèche gravée dans 
le plastique. : 

2. Soyez délicat pour l'ouverture : atten- 


- 


33 
00000 













34 


couper la piste 
du circuit imprimé 


inter à glissière 
vue côté soudure 





ré connecteur de l'AMSTRAD réservé au Drive 2 


1 
000000000000 


00000/000000000000 


tion aux nappes du clavier (fragiles). 
3. Coupez la piste qui va de la pastille 
n° 23 à la patte 8 du 74 LS 38. 

N.B. : Faire la coupure à l'endroit où la 
piste du circuit imprimé est fine et éloi- 
gnée des autres pistes. 

4. Coupez le fil faisant partie de la nappe 
qui va au drive 3 pouces. Ce fil est le 
quatrième de la nappe, le premier étant 
le rouge à gauche. (vers 74 LS 38). 
Bien, votre cœur peut recommencer à 
battre, les coupes sont finies. Nous 
allons maintenant réparer vos ‘‘bétises, 
car si vous mettiez en route comme cela, 
vous n'auriez plus aucun drive adressé. 
5. Câblez l'interrupteur comme illustré 
sur le schéma. Attention à la soudure sur 
la patte 8 du 74 LS 38. Soyez précis et 
vérifiez qu'il n’y a pas de soudure qui 


connexion de 
la nappe du 

3 pouces au 

circuit imprimé 


fil à couper = n° 4 
: Æ- à environ 5 cm 
du connecteur 


AMSTRAD, vue arrière prise Drive 2 










touche à la patte 9. Attention aussi à la 
nappe qui n'est pas loin. 

6. Les raccords entre les 2 fils C et D de 
l'interrupteur et le fil coupé de la nappe, 
doivent être faits proprement et proté- 
gés ensuite par un bout de gaine thermo- 
rétractable, ou plus simplement de chat- 
terton, mais surtout isolez-les |! 

7. Ne soudez pas le fil F sur la piste du 
circuit imprimé, la chaleur suffit à la 
décoller ; soudez directement sur la pas- 
tille n° 23. 

8. N'oubliez pas de faire les 2 ponts sur 
l'interrupteur avec 2 morceaux de fils 
(2 cm environ). Vérifiez une dernière fois 
votre travail. 

9. Voilà, le câblage est fini ::vous pou- 
vez ranger votre fer et passer à la partie 
mécanique. J'ai pour ma part simple- 
ment fait une encoche dans le plastique, 
au-dessus de l'emplacement de la prise 
du Drive 2. 


L'encoche est juste assez large pour 
manœuvrer l'interrupteur de droite à gau- 
che. 2 points de colle Cyanolit pour fixer 
l'inverseur et c'est OK, on peut revisser 
le capot définitivement. 

Faites attention en fixant votre interrup- 
teur qu'il soit en position drive À = drive 
3 pouces, lorsque l'interrupteur est vers 
le drive 3 pouces (c'est plus logique). 
Ainsi vous pourrez d'un simple touché du 
doigt savoir dans quel configuration vous 
êtes, au moment de charger un logiciel. 
Vous pouvez rebrancher tout votre 
ensemble et faire un transfert de CPM 
sur 5 pouces 1/4, pour le plaisir, ou alors 
pouvoir enfin lancer à partir du 5 pouces 
les programmes en plusieurs parties. 


x 


2 points de colle 
cyanolite 


7 | 





Figure 2 





GESTION D'UN 


CONGELATEUR 









FICHIER CONGELATEUR 


| 
12/1 


986 | poisson Four 
| viande 


i77a 
12/1 Érieots 
12/1986 | saumon 
e8/18/1 nacedoine legunes 
91/81/1987 | boeuf 






DO REM 46696 EE EEE ÉD DE DE DE DE EE EEE 

20 REM ###% FICHIER CONGELATEUR ### 

ZLO  REM #66 FE ED DEEE DE DE JE DE DEEE EE JE JE DE JE 

AO REM **%% par Laurent LEMAI k## 

50 REM *##+ #44 

60 REM ##%+% le 25/07/1986 #3 

70 REM HE EEE DEEE DE DE EEE DEEE HE DEEE 

89 OFENOUT"'bidon":MEMORY HIMEM-1:CLOSED 
UT 

90 BORDER O:INE G,0:INK 1,6:INE 2,24:M0OD 
E G:PEN 1:LOCATE 1,4: PRINT"FICHIER CONGE 
LATEUR":PEN Z:LOCATE 4,20:FRINT CHK$ (164 
33" LAURENT LEMAI" 

100 CALL &BEO6 

119 BORDER O:INÉ O,O0:INE 1,26:FEN 1 

120 MODE 2 

1:20 DIM dt#$(200),am${t200),nb (200) :nb=0 
1406 LOCATE 31,1:FRINT"'FICHIER CONGELATEU 
FR" 

150 GG10 270 

166 RE 4264636626 26 DEAD AE EE JP HE 
170 KEM x#% CADRE DE VISUALISATION ##+# 
190 REM 362 266466 36 GE DFE EE EE 
190 CLSHÜ:LOCATE 31,1:PFRINT"'FICHIER CONG 
ELATEUR" 

220 FLOT 1,376: DRAW 273,276 


100 


ee 0 | 
Laurent LEMAI 


| 
A quoi elle sert la machine, 


t'es toujours en train de jouer 
avec... si encore elle avait une 
utilité ! 

Et oui, qui n'a pas entendu 
prononcer ces reproches ? 
Réconciliez-vous avec 
Madame et prouvez lui que 
votre CPC sait être utile en 
gérant de près le contenu de 


votre congélateur. 


Le programme proposé est très court. Il 
pourra être adapté aux besoins de cha- 
cun par quelques modifications simples. 
Il fonctionne sur tous les CPC, et on 
pourra le compléter par une routine de 
sortie sur imprimante, par exemple. 
De par sa simplicité, ce programme ne 
nécessite pas de mode d'emploi : laissez- 
vous guider par le menu (sans jeu de 
mots !). 


230 LOCATE 1,3:PRINT" DATE ENTREE ALIM 
ENTS CONSERVES NB de SACS “ 

240 FLOT 1,276: DRAN 1,1:PLOT 2,376: DRAW 
2,1:FLOT 109,376: DRAW 109,1:FLOT 108,376 
: DRAW 108,1:FLOT 276,376: DRAW 276, 1:PLDT 
277,378: DRAW 277,1:PLOT 572,376: DRAW 27 
2,1:PFLOT 373,2376:DRAW 373, 

230 PLOT 1,244: DRAW 412,2344:FLOT 412,344 
:DRAW 412,1:PLOT 411,344: DRAW 411,1 

260 RETURN 

270 PAPER#1,1:PEN#1,0 

280 WINDOW #1,53,80,7,17 

290 KREM 346636 

200 REM %3#% MENU ##4 

210 REM #33 

320 CLS#1 

3230 PRINT#1I," MENU": PRINT#Ii:PRINT#1,"i 
— Nouveau et suite fichier":PRINT#1,"2- 

Chargement fichier ":FRINT#1,"3- Modifica 
tion du fichier":PRINT#1,"4- Enregistrem 

ent'":PRINT#1I,"S5- Visionner"; :PRINT CHR$#( 
rÈE 

340 a$=INEEYS:IF a$="" THEN GDTDO 5:40 

250 IF a$="1" THEN GOTO 590 ELSE IF a$=" 

2" THEN GOTO 510 ELSE IF ag$="23" THEN GOT 


D 620 ELSE IF a$="4" THEN GOTO 7BQ ELSE 
IF a+$="5S" THEN GOTO 890 ELSE GOTO 745 
260 REM #66 6 EEE HE DEEE DE DH DE DEEE HE DEEE EE 

270 REM ### CREATION DE FICHIER ##% 

200 REM #66 DEEE DEEE DEN DEEE DEEE 

299 nb=nb+i 

490 CLS#1:LOCATE#I1,1,2:FRINT#I,"sous la 
forme JJ/MM/AAAA":LOCATE#1,1,1:FRINT#I1:L 
OCATE#1,1,1:INFUT#I,"DATE D'ENTREE: ",dt 
$ (nb) 

419 IF LEN(dt#{(nb)):>;10 THEN GOTO 406 
420 LOCATE#1,8,5:FRINT#1,CHR$ (151): SFACE 
$(Z0) :LOCATE#1,1,4:FRINT#1,SFACES (353; :L0 
CATE#1,1,4:INPUT#1, "ALIMENT CONSERVE:",a 
m$tnb}) 

430 IF LEN(amb(nbi):18 THEN GOTO 420 

440 LOCATE#1,1,7:FRINT#1,SFACES (223) : LOCA 
TE#1,14,7:FRINT#I,CHRS# (151); SFACES (14): L 
OCATE#1,1,7:INFUT#I,"NE de SACS: ", nb (nb) 
450 IF nb{nb)>;99 THEN GOTD 440 

460 LOCATE#1,23,9:FRINT#1, "AUTRE OFERATID 
Wries 

470 a$=INFEYS:IF at="o" OK a$="0" THEN G 


OTO 2906 ELSE IF a$="" THEN GOTO 476 ELSE 


CLS#1:G0T0 550 

A4BO KREM MERE DEMO DE DEEE DEEE DEDEDEDEDEEE 
490 REM #*% CHARGEMENT DE FICHIER ### 
900 REM HE DEEE DEEE DEHEDEDÉ DE DE DE DE DEEE EE 
510 CLS#1:FRINT#1,"FREFAREZ VOTRE LECTEU 
R':CALL 8BBO6:CLS#1:FRINT#I, “CHARGEMENT 
EN COURS": OFENIN"!'#ichal" 

920 INFUT#9,nb 

Où FOR I=1 TO NE 

540 INPUT#9,dt#{1) 

990 INFUT#9,am$(l) 

560 INPUT#9,nb(I) 

9/9 NEXT I 

580 CLOSEIN:CLS#1:FRINT#I,"FICHIER CHARG 
E.":FOR j=1 TD SOOGINEXT j:CiS#i: GOTO ZZ 
G 

590 REM #36 M ED DE HUE HE DEEE EEE EEE EE 
600 REM +#+#+# MODIFICATION D'UNE FICHE ### 
G10 REM #46 DEEE EH NME HEADER DEN EE 
620 CLS#i:INFUT#I, "NUMERG DE FICHE 4 MOD 
IFIER: ",nu 

6:20 FRINTH#HI:FRINT#1,"i- DATE D'ENTRÉE: " 
sdt$(nu):FRINT#1,"2- ALIMENT CONSERVE: 
sam$(nu):FPRINT#I,"Z- NE de SACS: “snb(nu 
):FRINT#1,"4-— ANNULATION DE LA FICHE" 
640 a=INFEYS:IF a$="" THEN GOTO 640 

650 IF a$="1" THEN GOTO 660 ELSE IF a$=" 
Z" THEN GOTO 686 ELSE IF a$="2" THEN GOT 
O 700 ELSE IF a$="4" THEN GOTO 720 ELSE 
GOTO 620 

665 CLS#1:LOCATEH#I,1,2:FRINT#i,"sous la 
forme JJ/MM/AGAA":LOCATE#I,1,1:PRINT#IIL 
OCATE#1,1,1:INFUTH#I,"DATE D'ENTREE: “,dt 
$ (nu) 


_ GESTION D'UN CONGELATEUR 


670 IF LENidt#(nu))i::10 THEN GOTO 6ééi EL 
SE GOTO 890 

680 CLSHI:LOCATE#I,6,2:PFRINT#I, CHR (151: 
; SFACES (20): LOCATE#I,1, 1: FRINTHI SPACE: 
25) :LOCATE#1,1,1:INPUTHI, "ALIMENT LONSER 

VE: ",am$ (nu) 

89S IF LENC(amtinu)ï):i THEN GOTO éBi ELE 
E GOTG 290 

700 CLS#1:LOCATE#I,1,1:PRINT#1,SFALES (AZ 
):LOCATEHI,14,1:FRINT#1,CHRS (151); SFACE# 
(14): LOCATE#I,1,1:INFUT#I,"NB de SACS: ", 

nb{nui 

710 IF nbinu):99 THEN GOÜIG 700 ELSE GÜIU 
890 

720 CES#1 

730 FOR k=nu T0 nb:dt#{iri=""sam#ir)="ftin 
bik)=0:idt#é(Eti=dt$(k+{i):am#(kH)=zambie+liin 
b(k)=nb(k+1):NEXT E:nb=nb-{linu-û 

740 CLSHI,:PRINT#I,"FILHE ANNULEE":FUR I 
=i TO ZGOO:NEXT:GOTD 890 

750 REM 46064606 D DHEA HE 8 DEN Ne 
#4 

760 KEM ##% ENREGISTREMENT D'UN FILHIER 
+ 

770 KREM tee a Den 2 HAE EAMÉAE NE A NE 
+ 

780 CLS#HI:FRINT#1,"FREFAREZ VOTRE LELTEU 

R':CALL &BRO6:CLS#HI: FRINT#I, "ENREGISTREN 
ENT EN COURS":OFENOUT"'#ichal" 

790 FRINT#9,nb 

800 FOR I=1 19 nb 

810 FRINT#9,dt#&(CI) 

820 FRINTK#7,am$ (li; 

930 FRINT#9Y,nb{(1} 

840 NEXT I 

850 CLOSEOUT:CLS#I:FRINT#1, "FICHIER ENKE 
GISTRE.":FOR g=i 10 ZGOUINEXT j:CLS#i:GD 
TO 336 

Béo REP 44682608 He DER HE DE DEDÉHEHE HN EE EE AE 
## 

870 RE ### VISUALIGATION L'OUN FICHIER +# 
x 

880 REM #26 6 JE 4 DE DEA D DNA 0 te 
## 

890 a=1i:CLSH#G: GOSUE 19uù 

900 y=4: FOR 1=a T0 nb:y=y+iiLOCATE S,viF 
RINT dt#i1):LOCATE 6, Y:FRINT MSC: :LUL 

ATE 42,Y:PFRINT NBSIY:LOCATE 4B,Y:FRINT I 
910 GH=INEEYS:IF Y:=24 THEN GUTD 720 ELS 
E NEXT 1 

926 GGIG Zi 

GEO CLSHI:FRINT#1, “AFFUYER SUR LINE TOUCH 
E FOUR CONTINUER FAIRE 
M FOUR LE MENU'":a=1+i 

940 ab=INFEYS:IF a$="" THEN GOIC 940 ELS 

E IF a$="m" OK a$="M" THEN GOTO 320 ELSE 
GOSUE 196 

950 GOTO 900@ 


101 


BANC D'ESSAI 





LA TELE SUR VOTRE CPC ! 


Denis BONOMO 


ien joli de programmer à tour de bras mais il faut parfois savoir 

s'arrêter. Rien de tel qu’un bon film pour se changer les idées 

d’où la commercialisation d’une ‘‘’interface’’ capa le de trans- 
former le moniteur couleur de l’'AMSTRAD en téléviseur. 


Le modèle commercialisé par ORDIVI- 
DUEL se présente sous la forme d'un boî- 
tier en plastique noir, qui se glisse tout 
simplement sous le moniteur. L'alimen- 
tation secteur est incorporée ce qui per- 
met, une fois la mise en place effectuée, 
de ne plus rien débrancher par la suite. 
L'unité centrale de l'AMSTRAD restera 
connectée au moniteur, une commuta- 
tion permettant de passer de l'ordinateur 
à la réception TV. 

Le récepteur se connecte au moniteur 
par une prise acheminant les signaux 
nécessaires. Un autre câble assure la liai- 
son entre le récepteur et l'unité centrale. 
Sur la face avant du récepteur se trou- 
vent les commandes essentielles : le tra- 
ditionnel ‘‘'arrêt-marche’’ ainsi que les 
réglages de volume sonore, couleur, con- 
traste et lumière. Une sortie casque 
coupe le haut-parleur interne assurant la 
discrétion de vos activités ! 

La sélection des canaux et leur mise en 
mémoire se commandent depuis la face 
avant. La programmation initiale n'est 
pas évidente vu l'aspect un peu spartiate 
de la notice, mais une fois la méthode 
assimilée, vous pourrez mémoriser 
jusqu'à 16 canaux. Le récepteur est 
PAL/SECAM ce qui peut être intéressant 
pour les frontaliers ou lorsqu'on nous 
abreuvera de télévision par satellite. 
Le tuner couvre les bandes VHF et UHF 
ce qui permet la réception de Canal +... 
au moyen du traditionnel décodeur. 
L'arrière du boîtier est équipé d’une prise 
PERITEL pour le branchement d'un 
magnétoscope, d'une caméra ou du 
décodeur Canal +. Les entrées-sorties 
sont normalisées : 1V C/C pour la vidéo 
et 500mV pour le son. 

Un coup d'œil inquisiteur à l’intérieur du 
boîtier laisse entrevoir une réalisation de 
type grand public où le peu de compo- 
sants se justifie par le niveau 
d'intégration. 

Pour 1390F, l'utilisateur s'offre un 
récepteur de télévision sensible (nous 
avons pu le vérifier, sur une petite 
antenne intérieure) qui tirera le meilleur 
parti des qualités du moniteur couleur 
AMSTRAD. 

ORDIVIDUEL (1) 43.28.22.06. 
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A 


Une ligne téléphonique est à 
votre disposition, vous mettant 
en contact direct avec la rédac- 
tion. Ceci est un service sans 
égal ! Respectez simplement les 
horaires et les jours que nous 
vous indiquons : 

MERCREDI de 9hà 12h et de 
14hà17h. 

VENDREDI de 9 h à 12 h seule- 
ment. 

Tout appel en dehors de ces cré- 
neaux sera refoulé : ne dépensez 
pas inutilement votre argent | 
Le numéro : 


99.52.9811 





REVENDEURS : Contactez nos 
distributeurs agréés. 

e INNELEC : (1) 48.91.00.44 

e GUILLEMOT : 99.08. 90.88 

e PERITEK DCI : 78.22.13.11 


| FLOOPY 64 
COMMODORE 
2 disquettes 51/4 


AMSTRAD CPC 
1 disquette 3° 


LES VRAIS LIONS 
PROGRAMMENT 


FLOOPY STRAD FLOOPY STRAD 
AMSTRAD CPC 


SOUS QUELLE 


ETOILE 
SUIS-JE NE 


290 F. 


La disquette double-face 


MIROIR 
ASTRAL 


Avec une date, une heure et un lieu de naissance, 

votre CPC établira un portrait psychologique 

approfondi d'environ 15 pages sur imprimante ! 

Un logiciel qui vous étonnera par sa profondeur ! 
{version familiale d'un logiciel utilisé par les professionnels) 


D) 





V_ E C 


Astropsychanalisez votre famille,vos amis, 
comme les plus grands hommes célèbres. 


Commandez votre disquette pour CPC 6128 ou CPC 664 
(PORT GRATUIT) à : 
Bernard VILLEMIN 
317, Av. de Verdun - 83110 SANARY - Tél. 94 74 32 00 


FLOOPY 


Le 1°" magazine digital mensuel sur disquette 
CHEZ VOTRE REVENDEUR DE SOFT HABITUEL. 


e Les meilleurs programmes : les jeux, les trucs et les astuces, les utilitaires, 
les dessins, les musiques, le feuilleton, les potins, les annonces 

e La pub : les meilleurs logiciels du moment en démo. 

e Les concours : envoyez-nous déjà vos meilleures réalisations, jeux, utilitaires 
dessins, musiques 


: 
” + 
Le 


SU ésermmeente sons SE 


PROCHAINEMENT : FLOOPY ST (atari ST) -FLOOPY PC (Compatibles IBM*) 
* IBM : marque déposée. 


BULLETIN D'ABONNEMENT 


1K7 NOM as mme ete dns metres 





6 disquettes 
123F 


3 disquettes 


3 mois 176 F 


3K7 . 


M4 F Prénom 





6 disquettes 


345 F 
22 disquettes 11 disquettes 
410 F 


590 F 


12 disquettes 


6 mois 240 F 


6 K7 adresse ss ao 2e hreretoieter rite ape PE vu ati . 


A RETOURNER, paiement joint par chèque à 





COCHER LA CASE CORRESPONDANTE. 


ABONNEMENT ETRANGER : NOUS CONSULTER. 


l'ordre de : INFOMEDIA - B.P. 12- 
66270 LE SOLER — TEL. 68.92.60.79. 


INEOMEDIN 








SCROLLING SUR AMSTRAD 


Claude LE MOULLEC 


Le Basic Locomotive de l’Amstrad est 
l'un des plus rapides et des plus com- 
plets qui soit. Néanmoins, il souffre de 
quelques lacunes. Les plus criantes sont 
certainement les fonctions SPRITE et 
SCROLL. 

Pour ce qui est de la fonction SPRITE, les 
cours d’'Assembleur publiés dans C.P.C 
et le programme REFONT d'Alain Larrode 
(Hors série n° 2) devraient suffire à votre 
fringale. 

Reste la fonction SCROLL. En fait, la 
fonction SCROLL où SCROLLING recou- 
vre plusieurs phénomènes. 

Le ‘’Scrolling'’ le plus connu est celui 
obtenu en faisant LIST. Lorsque le listing 
arrive au bas de l'écran tout le texte se 
déplace vers le haut pour laisser la place 
à la ligne suivante. C'est le Scrolling vers 
le haut. Ce n'est pas le seul cas, caril 
est possible de Scroller dans les quatre 
directions. 

Les Scrolling ‘bas vers haut’’ et ‘haut 
vers bas’ sont les plus faciles à maîtri- 
ser. C'est ceux-ci que nous allons étu- 
dier en premier. 

Il est parfois nécessaire de ne pas faire 
scroller tout l'écran, pour conserver les 
scores, par exemple. Le Scrolling d'une 
fenêtre (Window) est suffisant dans bien 
des cas. 

Ce qu'il faut, c'est localiser l'extrémité 
haute à gauche et l'extrémité basse à 
droite de la fenêtre dans laquelle aura lieu 
le Scrolling. Pour tout l'écran, nous 
aurons Locate 1,1 et Locate 40,25. 

Il suffit, ensuite, d'envoyer un caractère 
de contrôle pour obtenir le Scrolling 
désiré. 

Chr$ (11) pour monter 

Chr$ (10) pour descendre 

Le petit programme n° 1 vous montre le 
résultat obtenu. 


SCROLLING LATERAL 

Le Scrolling latéral est le plus difficile à 
obtenir mais c'est aussi le plus specta- 
culaire. Qui d'entre nous n'a pas rêver 
devant le scrolling de Harrier Attack ou 
celui à ce jour, inégalé, de 5ème axe. 
Pour obtenir ce résultat, il existe deux 
méthodes. 

a) travailler sur le contrôleur vidéo. 

b} déplacer tous les octets d'une ligne de 
la mémoire écran de plus ou moins un. 
Action sur le contrôleur vidéo. 

Le contrôleur vidéo de votre ordinateur 
est un circuit intégré (68 45 pour les con- 
naisseurs) dont le rôle est de transformer 
les octets de la mémoire écran en 
signaux vidéo. 

Le Scrolling s'obtient en décalant 
l'adresse de départ de la mémoire écran. 
Deux commandes Out, suffisent à modi- 
fier les registres où est stockée l'adresse 
de départ. 
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Le plus petit décalage possible est de 
deux octets, ce qui nous fait 1 caractère 
en mode 1. 

Voici les commandes 

OUT &BCO0O, 13 : OUT &BD OO, X 
X étant le nombre d'octets multiplié par 
2 du scrolling désiré. Pour un scrolling 
complet de l'écran, faire : 

10 OUT &BCO00,13 : FORH = 1 TO 
40 : OUT &B D O0O,H 

20 FOR T = 1 TO 100 : NEXTT 
NEXT H 

Il est possible d'obtenir le même résul- 
tat sur un 464 sans Drive en faisant : 
10 FORH = 1 TO 40 : OUT 256, H : 
FORT = 1 TO 100 : 

NEXT T : NEXT H 


L'action sur le contrôleur vidéo offre : 


même la possibilité de décaler écran et 
bordure (Border). 

Décalage Bas-haut 

OUT &BCOO,7 :OUTBDOO,X1(X 
entre O et 38) 

Décalage latéral 

OUT &BCO0,2 : OUT &BDOO,X 
(X entre O et 63) 

Si vous désirez approfondir vos connais- 
sances sur ces effets, je vous conseille 
la lecture du livre ‘‘’Peek et Poke sur 
C.P.C'" paru chez Micro-Applications. 
Malgré tout, ces effets ne sont pas de 
véritables Scrolling. Si vous les avez tes- 
tés, vous vous êtes rendu compte qu'en 
plus du Scrolling latéral, il se produisait 
au début de la routine un décalage vers 
le bas et en fin, un décalage vers le haut. 
De plus, il est parfois nécessaire de ne 
faire bouger qu'une partie de l'écran. 
Pourtant, tous ces effets peuvent trou- 
ver leur application dans un programme. 
Par exemple, lorsqu'un test de collision 
entre deux sprites s'avère positif. 

En voici deux intéressants. 

10X =8 ; Y = 1 : OUT 255, X : OUT 
256. Y 

Amusant non ? Pour arrêter le massa- 
cre, faites : 

OUT 256,2 

Vous pouvez faire varier X et Y. Vous 
aurez quelques surprises et vous ne ris- 
quez qu'un plantage momentanné de 
votre ordinateur chéri. 

Le 2ème avec le son en plus. 

10 FOR H = 1 TO 20 : OUT &BC OO, 
2 : OUT &B D O O, 49 

20 FORT = 1 TO 80 : NEXT : SOUND 
1,1800 + (H * 50), 15,7,0,0,H 

30 OUT &BCO0,2 : OUT &BDOO, 
43 

40 FORT = 1 TO 80 : NEXT 

50 OUT &B C0 0,2 : OUT &B D OO, 
45 

L'action du Scrolling par contrôleur vidéo 
ne peut avoir qu'une utilisation limité. 
Nous allons maintenant passer à quelque 
chose de plus sérieux. 


Action sur les octets de la mémoire 
écran 

La mémoire écran de l'Amstrad est com- 
posée de 400 lignes de 80 octets. 8 
lignes écran faisant une ligne texte. Tous 
ces détails ont déjà été largement com- 
mentés dans le C.P.C n° 1. Si vous ne 
le possédez pas, faites le vous prêter. Si 
ce n'est pas possible ; volez-le ! 

Le principe de ce Scrolling est simple. 
Nous avons donc 80 octets par ligne. 
Nous prenons la valeur de l'octet n° 1 
et nous la transférons quelque part dans 
la mémoire de l'ordinateur. Puis la valeur 
de l’octet n° 2 sera transférée dans l'oc- 
tet n° 1. Le n° 3 dans le n° 2 et ainsi 
de suite pour les 79 octets de la ligne 
(LDIR pour ceux qui connaissent un peu 
l'assembleur). Pour finir, la valeur du n° 
1 mise en réserve sera transférée dans 
l'octet n° 80. 

Nous avons ainsi fait un scrolling d'une 
ligne sur un octet. || suffira de répéter 
l'action 400 fois et c'est tout l'écran qui 
sera déplacé. 

Pour obtenir ce petit miracle, tapez le 
programme n° 2. Pour plus de facilité, 
l'instruction a été conçue sous forme de 
R.S.X. Le nom de cette fonction sera ; 
ISCRDROIT,Z 

Le paramètre Z après la virgule est le 
numéro de ligne texte - entre 1 et 25 - 
à scroller. Pour un scrolling complet de 
l'écran faire 

10 FOR H = 1 TO 80 

20 FOR G = 1 TO 25 

30 ISCRDROIT, G 

40 NEXT G : NEXT H 

Le programme n° 3 produit le même 
effet mais cette fois-ci du côté gauche. 
Le nom de l'instruction sera 
ISCRGAUC, Z 

Il est à noter que pour que l'instruction 
soit efficace, il faut que l'écran n'ait pas 
déjà scrollé vers le haut ou vers le bas. 
L'instruction LIST provoquant le dépla- 
cement de l'adresse &C O O O de la 
mémoire écran. 

L'initialisation des instructions se fera par 
un 

— CALL &A O O O pour ISCRDROIT et 
— CALL &A 1 O O pour ISCRGAUC 

Il est aussi possible de sauvegarder ces 
deux fonctions sous forme binaire en 
faisant. 

Save ‘'SCRDROIT’’, B, &A O O, 80 et 
Save ‘'SCRGAUC"’, B, &A 1 O O, 80 
Au chargement, il ne faudra pas oublier 
le CALL pour l'initialisation. 

J'espère que ces quelques exemples 
simples vous permettront de combler 
une des lacunes de votre ordinateur. Il 
vous est désormais possible de sortir de 
l'immuable programme de jeux à 
tableaux fixes. 

A vos claviers... 


LORIE EREEMEEMEEEAEEREERER EEE 
2 ‘ DEMO BASIC SCROLLING VERTICAL 
DORE EEE 
E 

10 MODE 1:INK O,02INK {,26:INK 2,24:PAPE 
R O:CLS 

20 WINDOW #1,11,30,6,20 

30 PLOT 156,76,2:DRAW 482,76: DRAM 482,32 
2:DRAW 156,322: DRAW 156,76 

40 PAPER #1,1:LOCATE 19,18:PEN 2:PRINT"O 
UVERTURE DU":LOCATE 19,19:PRINT"VOLET" 
50 FOR h=1. TO 13:S0UND 1,0,15,15,4,,5:L0 
CATE #1,20,15:PRINT #1,CHR#(10):FOR t=1 
TO 100:NEXT:NEXT 

60. FOR t=1 TO 1O00:NEXT 

70 PAPER #4,0:LOCATE #1,1,1:PRINT #1,CHR 
$(11) i 

80 PEN 2:LOCATE 15,6:PRINT'FERMETURE DU" 


90 FOR h=1 TO 12:S0UND 1,0,15,15,4,,5:L0 

CATE #1,1,1:PRINT #1,CHRS(11):FOR t=1 TO 
100:NEXT:NEXT 

100 FOR T=1 TO 1000:NEXT:60T0 40@ 


IMRTTIS TITI IST ID TESTS EESTI ESS 
2° DEMO RSX :SCRDROIT 
DOUAI HER 
1: 

10 MEMORY &9FFF 

20 FOR h=&kA000 TO &AO00+75:READ a$:POKE 
h,VAL("&"+a$):NEXT 

30 CALL &A000 

40- FOR H=1 TO 80:FOR 6=1 TO 25: :SCRDROIT 
BINEXT GINEXT H 

30 END 

60 DATA 01,09,A0,21,17,A0,CD,D1,BC,0E, A0 
,C3,1B,A0,53,43,52,44,52,4F,49,D4,00,00, 
00,00,00,FE,01,C0,F5,DD,6E,00,2D,26,00 
70 DATA 06,04,29,10,FD,E5,D1,06,02,29,10 
4FD,19,11,00,00,19,06,08,05,01,4F,00,E5, 
D1,23,1A,ED,B0,12,01,B0,07,09,C1 

80 DATA 10,EE,F1,09@ 





IMNRIZISS LS SSII SS ETES ETES ETES SS ESS TS: 
2. DEMO RSX : SCRGAUC 

KO ITIZIIISII DE LIS III ETS TEL SS SSL SESSE. 
a: 

10 MEMORY &AOFF 

20 FOR H=&A100 TO &A100+74:READ a$:PDKE 
h,VAL("&"+a$):NEXT:CALL &A100 

30 FOR h=1 TO 80:FOR g=1 TO 25: :SCRGALC, 
gNEXT giNEXT h 

40 END 

50 DATA 01,09,A1,21,16,A1,CD,D1,BC,0E, AI 
,C3,14,41,53,43,52,47,41,55,C3,00,00,00, 
00,00,FE,01,C0,F5,DD,6E,00,2D,26,00,06,0 
4,29,10,FD,E5,D1,06,02,29,10,FD 

60 DATA 19,11,4F,00,19,06,08,05,01,4F,00 
,E5,01,28,1A,ED,B8,12,01,50,08,09,C1,10, 
EE,F1,09@ 














Je désire recevoir un coffret SÉRIE.2 contenant un logiciel SÉRIE, un câble de raccordement, et un guide 
de l'utilisateur, au prix de 700 F TTC 
O Je désire recevoir un coffret SÉRIE.2 spécial PC 1512 au prix de 1490 F TTC (cette version permet 
la recherche automatique des codes postaux sur annuaire électronique). 

O Je désire recevoir une disquette de démonstration contre la somme de 65 F TTC 
Je désire recevoir un complément d'information (gratuit) 


























M, Mme : 
Adresse 


Iminitelistes. 


Heureux possesseurs d'AMSTRAD, 
vous pouvez maintenant utiliser le 
réseau téléphonique pour com- 
muniquer avec vos alter égo, AMS- 
TRADISTES eux-aussi, ceci via votre 
minitel. 


Pour 700 F TTC le logiciel SÉRIE.2 vous connectera sur 
le réseau téléphonique commuté pour transmettre 
fichiers, programmes, dessins, etc. 

Vous pourrez aussi économiser vos coûts de consulta- 
tion en enregistrant, imprimant et archivant sur votre 
micro, toutes les informations accessibles par minitel 
(chiffrez déjà ce que vous allez gagner sur vos banques 
de données favorites !). 


Et si cela ne suffit pas à vous convaincre, sachez que 
grâce à SÉRIE.2 vous pourrez aussi utiliser le clavier de 
votre micro à la place du clavier minitel, transformer 
toutes suites d'écrans VIDÉOTEX en fichier ASCII, impri- 
mer des étiquettes adresses à partir de l'annuaire élec- 
tronique... 

En ajoutant que vous ne trou | 
verez pas moins cher ailleurs, | 2% 
vous 





Æ == Et 
Ms 









DIFFUSION 


Le logiciel SÉRIE.2 fonctionne sur AMSTRAD CPC 464 avec lecteurs de disquettes DDI, 
CPC 664, CPC 6128, PCW 8256 et PCW 8512 équipés de l'interface série d'AMSTRAD 











Code postal : 








En cas de règlement joint, JMN Diffusion prend à sa charge les frais de port. 
A retourner à : JMN Diffusion - Les Clématites - 38410 URIAGE. 





IMPLICATION GROUPE DE COMMUNICATION DIALE CTIQUE 











ECRITURE EVOLUEE 
UR AMSTRAD CPC 


D. VASILJEVIC 


Pour réaliser vos plus beaux écrans, voici un programme qui, bien 
que lent à l'exécution, provoquera quelques effets spectaculaires. 


Les possibilités graphiques de cet ordi- 
nateur sont assez bonnes, mais il ne pos- 
sède qu'un seul jeu de caractères alpha- 
numériques. La fonction ‘’TAG’' permet 
l'écriture sur son écran graphique et l’uti- 
lisateur peut remplacer le jeu standard 
par ses propres caractères. Néanmoins, 
l'écriture sera toujours la même et hori- 
zontale de gauche à droite. Ceci est très 
insuffisant dans le cas de CAO et DAO, 
conception ou dessin, assistés par ordi- 
nateur. 


Le programme proposé permet l'écriture 
évoluée à partir d’un jeu de caractères 
standard ou tout autre, chargé aupara- 
vant à la place de celui-ci. Le début de 
ce tableau est situé à l'adresse & 9000 
(variable l). 

Les fonctions de base sont assez nom- 
breuses : 

— écriture avec ou sans image symétri- 
que (S$ = ‘‘O'' ou ‘'N'). 

Les trois types de symétries sont possi- 
bles : par rapport à l'axe X, Y, ou symé- 
trie polaire (C$ = ‘’X’’, ‘’Y'" ou ‘‘O”') ; 
— choix de l'origine en coordonnée X, 
Y. Le curseur est positionné comme pour 
la fonction ‘’TAG”' dans l'angle supérieur 
gauche du premier caractère (variables 
X, X2, Y, Y2). Ne pas oublier que l'ori- 
gine de l'écran se situe dans l'angle infé- 
rieur gauche ; 

— angle par rapport à l'horizontale en 
radians. Compte-tenu de l'orientation des 
angles sur CPC, l'angle positif est dans 
le sens des aiguilles d'une montre (Varia- 
ble A). Ainsi un angle À = O donnera 
l'écriture horizontale normale, À = - PI/2 
l'écriture verticale de bas en haut et A 
= - Pl/4 l'écriture à 45° du bas à gau- 
che vers le haut à droite. Tous les angles 
sont possibles, mais compte-tenu de la 
faible résolution verticale, l'écriture obli- 
que donnera les caractères plus ou moins 
‘’chinois’”. Nous verrons plus loin com- 
ment y remédier partiellement ; 

— largeur (L, LT) et hauteur (H, H1) au 
choix, ces valeurs étant des entiers ; 
— caractères déformés selon X ou Y 
(variables DX, DY). Les facteurs de 
déformation (zéro pour caractère non 
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déformé) permettent d'obtenir les carac- 
tères à rayures verticales (DX = 1), hori- 
zontales (DY = 1) ou à cottes de mail- 
les (DX = DY = 1). Les dimensions des 
caractères doivent être dans ce cas éga- 
les ou supérieures à 2 dans le sens de 
déformation. Toutes les valeurs sont 
possibles, mais attention au résultat ; 

— choix de l'inclinaison : pour IX = O 
l'écriture droite, IX = 1 penchée à gau- 
che, IX = -1 penchée à droite ; 

— choix de distorsion : pour IY = O 
l'écriture droite, IY = 1 angle gauche 
déplacé vers le haut, IY = -1 angle gau- 
che déplacé vers le bas ; 

— effet de perspective progressive (P = 
1), ou dégressive (P = -1), en absence 
de perspective P = O; 

— écriture prioritaire. Pour P1 = O l'écri- 
ture en cours sera superposée à l'écriture 
où au dessin existant sur l'écran. Pour 
P1 = 1 l'écran sera effacé à l'emplace- 
ment de la nouvelle écriture ce qui donne 
l'effet d'une étiquette couleur fond avec 
écriture couleur encre. Ce paramètre 
associé à celui de l'écriture inverse (E) 
permet la création des étiquettes de cou- 
leur encre avec texte couleur fond ; 

— effet escalier. Les paramètres EX et 
EY sont dissociés de la notion d'angle 
d'écriture et permettent ainsi de dépla- 
cer le caractère en cours d’une valeur 
quelconque par rapport à son emplace- 
ment normal. Ceci permet d'écrire les 
caractères horizontaux superposés ver- 
ticalement ou en escalier, etc. Ces deux 
paramètres associés habilement aux 
effets de perspective permettent de choi- 
sir le niveau de l'horizon et les angles de 
fuite ; 

— l'écriture inverse permet l'écriture de 
couleur opposée (point par point) à celle 
trouvée sur l'écran. Pour écriture inverse 
E = 1,sinon E = O. 

Toutes les fonctions de base peuvent 
être utilisées soit isolées soit associées 
à une ou plusieurs autres fonctions et 
même à toutes les autres simultanément. 
Les seules restrictions sont liées aux 
dimensions des caractères et quelques 
impossibilités en perspective avec 
symétrie. 


Ceci est dû au désir d'écrire un pro- 
gramme très court pour éviter une lon- 
gue saisie. 


Dans le cas de la perspective négative, 
la largeur et la hauteur du premier carac- 
tère doivent être égales au nombre de 
caractères du texte à écrire. Si le texte 
est plus court, il suffit de le donner entre 
guillemets en ajoutant le nombre d'espa- 
ces nécessaires. Dans ce cas-là il ne faut 
pas utiliser l'écriture prioritaire ou 
inverse. Les guillemets sont aussi néces- 
saires pour les signes de ponctuation. 
Chaque utilisateur a la possibilité de 
modifier les formules afin de changer l'ef- 
fet de tel ou tel paramètre, par exemple 
pour pallier l'effet des caractères ‘‘chi- 
nois’” lors de l'écriture oblique il faut sup- 
primer l'effet de l'angle sur les indices de 
dimensions S et T des blocs effacement 
et écriture. Ainsi la ligne 1910 sera : 
X1=C1-J1+S-T +11 +X+S*DX-T*DY 
Les autres lignes comportant S et T 
seront modifiées de même façon. 


LISTE DES VARIABLES 

NON CITEES DANS LE TEXTE 

D : témoin symétrie Y : D=2 ; 

sinon : D=1 

PL et FLAG : pramètres de lecture des 
caractères pour symétrie ŸY : FLAG =-1, 
PL=0O ; pour symétrie X : FLAG=1, 
PL=1 ; sinon : FLAG=1, PL=O 

A$ : texte à écrire 

K : indice de boucle, caractère en cours 
CA : ASCII de caractère en cours 

J : indice de boucle, ligne de caractères 
en cours J1, J2, 11, paramètres liés à J 
V : valeur d'octet représentant une ligne 
de caractères en cours 

Z : valeur de comparaison pour point en 
cours 

C : indice de boucle, point en cours C1, 
C2, 12, paramètres liés à C 

T$ : chaîne de service 

S,T : indices des boucles point/ligne liés 
aux dimensions des caractères 

X1, Y1 : coordonnées du point en cours 
V1: valeur de ligne du caractère en 
cours inversé (pour symétrie Y). 


Pour AMSTRAD et THOMSON 


KENTEL 


CARACTERE S le coffret 


Utilisant Je jeu de CARRIERES STAUAXD ou bout. autre 


de doute votre télématique 


ñü M 5% 


del" JE << KO ZI 380 F TIC 
HE Cf EX EE EN EE KE 
Ligne de prvËeseione] 


# Boîte à outil 


cette ecritue peut 


F4 SLR C Æ € m. " télématique 
Ms sé = Serveur vidéotex 
et compositeur de pages 
(texte et graphique) 
«“ Câble de connexion 
= Détecteur de sonnerie 


ET 
qu 


F4 
ea 
€ 
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ba 
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= 
Hd 
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(distributeurs et revendeurs contactez-nous) 
6 SLLLSLLLLLLLLSLLISS 

E l BON DE COMMANDE 

. 

Je désire recevoir KENTEL pour mon 

C) AMSTRAD (464 - 664 - 6128) 


REFLET DANS L'EAU AVEC EJJIT DI ee te -D 














Ci-joint mon règlement de 380 F par chèque 
à l’ordre de ENTER S.A.R.L. 


less 
INNOVATION - DÉVELOPPEMENT - DIFFUSION 


ENTER - 140, rue Legendre - 75017 PARIS 
16 (1) 42 26 60 51 


st) la 


ÆEYY MODE 


ENTER 
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IF F£:Q THEN LaLi:H=Hi 





IF C#£:"0" AND C#<>"o" THEN 1770 

X=X2— (B#xH—1) #SN+(2XL+1) #CS: Y=Y2-(B#H-1) «CS+-(2xL+1) *SNXZ 
5 X=INTOCX-INT(X))#1@/S+INT (X)) 

5 Y=INTOCY-INT(Y))#10/S+INT(Y)):GOTO 1740 


FLAG=-1:FLel: X=X2-B#HXSN: Y=Y2-16#H4CS 
5 X=INTOCX-INT(X))#1U/S+INT(X)) 

YÆ=INT (CY-INT(Y))#1Q/S+INT (Y)) 
IF C#="X" OR C#="x" THEN 13740 


X=X2-B4LEACS: VEVE+16KkLKSN: D=R: FLAG=1:FLE=Q 
X=INT((X—-INT(X))#10/S+INT (X)) 
YÆINT (CCY-INT(Y))#1@/S+INT(Y)):GOTO 1740 


:FOR 6*0Q TO L-1:FOR T=Q TO H-1 
XI=C1-J1+SXCS-TXSN+I1+X+SXDXXCS-TADYXGN 

5 XISINT(CCX1-INT(X1))#10/S+INT(X1)) 

1 VIS V- (CR+JP+GAGNETECG+IT+SADXAGNETADYKCS) #2 

5 YISINT CCYI-INT CY1))#10/S+INT (Y1)) 

REM: MOVE X1,Y1:B=TEST(XI,Y1):IF BE THEN 1990 

: FLOT X1,Y4,1+E 

:INEXT T,S 

: V=V-Z : RETURN 


VI=O:FOK Cx1 TO 8 
Z=INT(Z2"(8-C)):IF Viez THEN VI=VI+INT (2 (C-1)):V=v-7 
NEXT Ci VaV1: RETURN 


IF F=<Q THEN X=BxLkCS+X+EX 

:1IF F0 THEN X=8%(L+1) *CS+X+0BS (F-FL) *BKH1xSN+EX 
IF F£Q THEN X=8xLxCS+X- (ARS (F) -FL) xBxSN+EX 

:IF FeQ THEN Y=-16%L4SN+Y+EYXZ 

IF FO THEN Y=-16xLxGN+Y+ARS (F-FL)#16kxH1XxCS+EVX® 
IF FÉO THEN Y=-16xLXxSN+Y- (ARS (F)-FL)#16XxCS+EYX7 
5 XSINT CCX-INT (X))#10/5S+INT (X)) 

5 YæINTC(Y-INT(Y))#10/S+INT (Y)) 

5: RETURN 


sIF F=Q THEN X=-8#xLxCS+X-EX 
IF F0 THEN X=-8%x(L+1)xCSx(CkH+2/2) /k+X+ARS (F-FL) #8#H1xSN-EX 
IF F£Q THEN X=-8%(L-1)#CS+X- (ABS (F)-PL) #8*xSN-EX 
IF FeQ THEN Y=16xLxSN+Y+(EY+SN) #2 
IF F#Q THEN Y=léx (L+1) xGN+Y+AES(F-PL) #16KkH1KkCS+EYXx2 
IF FEQ THEN Vei6x (L-1)#GN+Y-— CARS (F) -PL) #16XxCS+EYX2 
5 X=INTCOCX-INT(X))#10/S+INT (X)) 
YÆ=INT (CY-INT(Y))#1Q/S+INT (Y)) 
RETURN 





FOR i=tA000 TO &A810 
READ A 

FOHE i,VAL("%h"+a#t) 
NEXT i 


DATA f3,cd,06,b9,21,00,:8,11,00,90,01,00,08,ed,b0,c9,00 
CALL 84000 
RETURN @ 


1000 
1010 
1020 
1070 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1170 
1140 
1150 
1160 
1170 
1180 
1190 
1700 
1210 
1220 
1270 
1240 
1250 
1260 
1270 
1780 
1290 
1:00 
1310 
1320 
1330 
1:40 
1:50 
1:60 
1370 
1:60 
1:90 
1400 
1410 
1470 
1450 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
152 

1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1670 
1640 
1650 
1660 
1670 
1680 


REM=======z===z=2==2==========================2==22=2=E====E====E=EEE======-==== 


MEMOQ 


Tous us se 
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FOR E= 


RY ®&8FFF:MODE 2: GOSUR 


IF Sf="N" OR S£="n 


“ 


ECRITURE 





EVOLUEE 


D. Vasiljevic 


janvier 


1987 


AMSTRAD CPC 


2320:1=89000:WINDOW 1,80 


INFUT'"'Far rapport a X, Y ou 07 


INFUT'"Origine X, Y 


INFUT'"Coefficient 
INFUT'"'Coefficient 
INFUT "Coefficient 
INFPUT'"'Coefficient 
INFUT'"'Coefficient 
INFUT'"Coefficient 
INFUT'"'Coefficient 
INFUF'"'Coefficient 


Le 


de 
de 
de 
de 
d' 

d' 
de 
de 


"RINT:INFUT'"'IMAGE AVEC SYMETRYE (O0 ou N) 7? ",S#:CLS:FRINT 


THEN 1180 


"CE: CLS: FRINT 


MX, Ye CLS: X2=X: Y2=Y: FRINT 
INFUT'ANGLE?  ",A: CLS: SN=SIN (A) : CS=COS (A) : FRINT 


LARGEUR?  " 
HAUTEUR?  " 
DEFORMATION 
DEFORMATION 
INCLINAISON 
INCLINAISON 
FERSFECTIVE 
PRIORITE® 


INFUT"'EFFET D' ESCALIER X, Y? " 
INFUT'"'ECRITURE INVERSE? ",E:CLS 
INFUT'TEXTR  ",A#:CLS:FLAG=1:PL=Q:D=1: FRINT 


1 TO LEN(A#) 


IF PQ THEN LEL1ixExF: HEHIKEXF 


IF F£O THEN LaL1/LENCA#) # (LEN (A#) -K+1) : H=HI/LEN (AS) # (LEN (A#) -H+1) 


: CA=ASC (MID (A#,K,1) ): CLS: PRINT 


:PRINT'"'Code ASCII en cours: 


" ,CA 


,L:CLS:LI=L: PRINT 
Hi: CLS: HI=H: FRINT 


X? "“,DX: CLS: PRINT 
Y? ",DY:CLS: PRINT 
XF "IX: CLS: FRINT 
YP  ",IY:CLS:FRINT 
FR "Fi CLS: PRINT 


",Pi1s:CLS:PRINT 
.EX,EY: CLS: FRINT 
: PRINT 


: FOR J=Q TO 7:J1=J*HkSN:J2=JxHxCS: Ii=IX*xJ 
5: IF Fizi THEN GOSUR 1550 
: V=FEEF (I+8#CA+J*xFLAG+7*FL) 


IF D 


Z=] 
IF 
NEXT 
:NEXT 
: ON D 
NEXT FE 
IF St= 
INFUT" 


=2 THEN GOSUR 2020 


NT (2 (8-0) ) 


V:=Z7 THEN GOSUE 1900 ELSE 1460 


C 
J 
GOSUER 2080,7200 


"O" OK S#t="o" THEN 1680 


Autre text (O0 ou N 


)? 


MT#:IF T£="O0" OR T#=" 


FOR C=1i TO 8:C1=(C-1) #LxCS:CZ=(C-1) xLaxSN: 12=1Y#C 






FOR C=i TO 8:Ci=(C-1) xLxCS:C2=(C-1) xLxSN: 12=1YXxC 
:FOR S<0 TO L-i:FOR T=Q TO H-i 

5: X1=Ci-J1+SXxCS-TxSN+I1+X+SXxDXXCS-T#xDY#SN 

5 XI=INTO((XI-INT(X1))#10/S+INT(X1)) 

5 Yi=Y-(CR+J2+SKSN+TKCS+I1+SXDYXSN+TEDYXCS) #2 
5 YI=INTO(CYI-INT(V1))#1Q/S+INT(Y1)) 


s «PLOT 
NEXT T 


: SN=SIN (A) : CS=COS (A) : D=i 





S+t="N" 


X1,Y1,0+E 
,S,C: RETURN 


sIF C$="0" OR C$=" 


o" 


THEN A=A+PI 


CERTES 


o" THEN 1150 ELSE END 


ENFIINI 


CTEUR 5° 1/4 
pour AMSTRAD 


1 M OCTETS 
1 699 F TTC 


® LE JASMIN AM 5D 


le 2e lecteur double têtes, double ou quadruble densité, 
indispensable pour votre AMSTRAD 
CPC 464 - 664 - 6128 et PCW 8256/8512 













CL LUUI NAN 





Accéder à toute la bibliothèque CP/M éditée sur 5’ 1/4 


grâce aux utilitaires disponibles chez « WILD WEST », 
84760 St-Martin de la Brasque. Tél. : 90.77.61.36 


JASMIN 2 DD. le lecteur double têtes Puissant mais Econome 


Plus besoin de retourner la disquette. La sélection de face se fait par inverseur avec indicateur lumineux. LISTE DES POINTS DE VENTE 


en 51/4. JASMIN AMD: formaté, entièrement compatible AM5D0S, PRIVILEGIES JASMIN AM5D 51/4 
CP/M 22 et CPM +. livre avec disquette utilitaire de formattage et de duphcation 
de disquette mises posusesstescesestense ste messes 1 699,00 F TTC 14000 CAEN : LOISIR INFORMATIQUE, 39 41, Rue de l'Oratoire, tél. 31.85.18 77 
Lecteur 5’ 1/4 JASMIN AMP65D + - 1 M : double têtes, quadruble densité, 720 K for- 33000 BORDEAUX - L'ONDE MARITIME, 257, Rue Judaique, tél 56.24.05 34 
matté, entièrement compatible AMSDOS et CP/M ., livré avec disquette utilitaire de FLO 00! format- 33000 BORDEAUX - ESAT SOFTWARE, 55, Rue Tondu, tél. 56 96.35.23 
tage et utilisation en 80 pistes... ................................. 1 F TIC 33000 BORDEAUX : SON VIDEO 2000, 31, Cours de l'Yser, tél. 56.92.91.78 
Cable de liaison pour CPC 6128/664..................... 155,00 F TTC 33000 RENNES - MICRO C, 3, Bd de Beaumont, tél 99.31.70.41 
Adaptateur AD 12 - VDC : pour l’utilisation avec des moniteurs sans sortie 12 V. 60,00 F TTC 37170 CHAMBRAY LES TOURS : Centre commercial du CAT, tél. 47.27.29.00 
Kit de liaison du JASMIN AM5D + : avec le PCW 8256/8512... 250,00 F TTC 511000 REIMS, 2, Av. de Laon, tél. 26.47.44 14 
Jasmin-Booster : adaptateur à rajouter derrière l'AM5D ou AM5D + leur permettant d'être vf ei maître ou esclave, 64000 PAU - BASE 4, 11 Rue Samonzet, tél. 59.83.78.78 
et pour le lecteur 1 M de se comporter en 500K. Disponible en octobre : Prix indicatif. . . . ..... 350,00 F TTC 69000 LYON - FRANCE DISQUETTES, 255, Av. Berthelot, tél. 78.01.79.63 
Disquettes D” 1/4; l'Unité... cons sans oesereseue, 7,00 F TTC 75014 PARIS - VIDEO SHOP, 251, Bd. Raspail, tél. 42.96.93.95 
Imprimante spéciale AMSTRAD AM PRINTER : Silencieuse - 50 CPS - Qualité cour- 75001 PARIS - VIDEO SHOP, 50, Rue de Richelieu 
rier - 132 colonnes en contractées. ................................ 1995,00 F TTC 75010 PARIS - GENERAL VIDEO, 10, Bd. de Strasbourg, tél. 42.06.50.50 
Cable CENTRONICS pour AMSTRAD................... 175,00 F TTC 75011 PARIS - VISMO, 84, Bd. Beaumarchais, tél. 43.38.60 00 
Les prix en boutique comprennent le port. 75019 PARIS - DFI Centre de démonstration, 66, Rue d'Angers 

AMSTRAD - CPC 464 - CPC 664 - CPC 6128 et PCW 8256/8512 - AMSDOS sont des marques déposées d'AMSTRAD. JASMIN AM-5D est une marque déposée de T.R.A.N. sarl. CP/M est une marque déposée de Digital Research 
* 500 K et 1 M octets, non formattés Tous nos prix sont en fonction de nos stocks au 1°" Septembre 1986 
BON DE COMMANDE à T.R.A.N. sarl - a oran manie 


Impasse Lavoisier ZI. Les Fourches - Les Espaluns 1 - °°: Valle 
Crédit possible. Nous téléphoner 


Veuillez m'envoyer d'URGENCE 








Ci-joint un chèque total : 


Port gratuit en France pour achat de plus de 500 F TTC - Forfait de port en France pour achat de moins de 500 F TTC : 40,00F TTC 
supplément contre remboursement : 120,00 F TTC. 


CPC Revue standard Amstrad Schneider 
dossier classeur jean, logo et titre blanc 
Prix TTC : 74F 

Abonnés : S1F 


















THEORIC, Revue des utilisateurs d’ORIC 


dossier classeur gris, logo titre rouge 
Prix TTC : 80F 
Abonnés : 59F 


MEGAHERTZ Magazine 


dossier classeur noir, logo et titre doré 
Prix TTC :78F 


Abonnés :55F 


D GS GS ONE OU GUN GUN GUN GUN GUN ORE OS MR ME EE 
BON DE COMMANDE 


Nom Prénom 


Adresse 


IEEE 





MEGAHERTZ Abonnés 
Non Abonnés 
CPC Abonnés 
Non Abonnés 
Abonnés 
Non Abonnes 








+PORT 107 à la commande 


3 REVUES POUR LES PASSIONNES 
CPC - REVUE DES UTILISATEURS D'AMSTRAD : en vous abonnant, vous recevrez 
chez vous votre revue. Vous bénéficierez de réduction sur certains produits et Vous recevrez gra- 
tuitement six numéros hors série (un tous les deux mois). 
AMSTAR : en avant première, toutes les nouveautés sur AMSTRAD -— des programmes, des arti- 


cles ! A la demande de nos lecteurs, nous prenons désormais les abonnements. 
PCompatible MAGAZINE : sortie prévue du numéro 1 mensuel le 13 février 1987. 





Attention, tous nos abonnés recoivent avant parution des souscriptions sur les nouveaux livres ! 
































[] CPC AMSTRAD 11 numéros 180F A renvoyer à 
6 numéros 104F 
[] Abonnement essai 3 numéros 55F SORACOM 
Service Abonnement 
AMSTAR 11 numéros 100F BP 11 — 35170 BRUZ 
PCompatible Magazine 11 numéros 200F 











NOM Prénom : 


Adresse 





Code postal Ville 











Date Signature 


Merci d'écrire en majuscules 
Ci-joint un chèque libellé à l'ordre de : Editions SORACOM. Retournez le(s) bulletin(s) ou une photo- 
copie. ° 














La place réservée aux petites annonces est 
limitée. En conséquence, celles-ci passent 
dans leur ordre d'arrivée. Par contre, les peti- 
tes annonces farfelues sont systématique- 
ment rejetées... De même, comme il est peu 
probable qu'il existe des ‘’généreux dona- 
teurs'’ de matériels ou de logiciels, les peti- 
tes annonces faisant appel à ces philantro- 
pes ne seront insérées que si la place libre 
le permet. 

Seront refusées toutes les annonces visant 
à vendre ou échanger des listes ou copies de 
logiciels non garantis ‘’d'origine’’, ainsi que 
toute annonce incitant au piratage. 

En conséquence, réfléchissez bien avant 
d'envoyer vos textes. 

Les petites annonces doivent impérativement 
nous parvenir sur la grille (découpée ou pho- 
tocopiée), le texte étant rédigé à raison d'un 
caractère par case. 

Enfin, toute annonce non accompagnée de 
timbres ne sera pas insérée. 


Vends Amstrad CPC 464, coul. t. b. ét. avec nbx 
logiciels : 3000 F. Tél. 60.07.73.80. 





Vends CPC 6128 + 13 disquettes + textomat 
+ 6 logiciels + joystick + livres : 4500 F. M. 
LEROUX, bur.: 47.48.84.51, après 19h tél. 
48.05.98.78. 


Vends CPC 464 mono + 1 drive + 52 logiciels 
+ doc. : 3990 F. DENIZE A., 6, ch. de la Gravière 
91610 BALLANCOURT, Tél, (1) 64.93.34.74. 


Vends 664 couleur + 300 logiciels 
+ documentations, sous garantie : 4500 F. Perso. 
46.82.61.55, trav. 60.84.95.05, p. 7135, M. 
FRENVILLE. 

Achète les trois premiers numéros de CPC. DENIS 
GIRARD. Tél 38 58.54.58 (après 18 h). 


Achète 664 couleur, max. 3000 F ou 6128 cou- 
leur max. 3500F. Après 18h, Philippe, tél. 
40.46.48.82. 


Vends AMSTRAD CPC 664 + joystick + revue + 
jeux : 4500 F. Jérôme SAULET, Chemin de la plan 
che, 77140 NEMOURS, tél. 64.28.01.95. 








Sonorisation “HiFi tous Amstrad sur tuner ou 
récept. FM, liaison sans fil par microémetteur : 
230 F. Doc. 2 t. PICAULT, 13450 GRANS. 





Vends CPC 6128 coul. 12/85 + synthé + joystick 
+ nombreuses revues + lect. K7 + jeux + utili- 
taire : 6000 F à débattre. Tél. 46.91.37.80 après 
17h. 





Vends Hisoft Pascal 4T de AMSOFT : 300 F. P. 
GIRARD, 6, rue des Hauts, 45380 LA CHAPELLE 
ST. MESMIN 

Vends CPC 464 mono tbe + 70 jeux + 15 utilitai 
res : 3500 F. M. CALZAN, 2 Imp. Gueffron, 94480 
ABIONS tél 45 97 98 80 


vier DUMAINE, 7 rue de Brignais, 69540 IRIGNY, 
tél. 78.46.33 87 

Vends AMSTRAD CPC 464 coul. + lecteur DDI 1 
+ 90 programmes + 4 joysticks + doc : 5500 F 
Olivier CHEDRU, tél. 40.58.31.42. 

Vends CBM 128 D (1571 intégré) + 70 disks : 
4700 F + Péritel (acheté 06/86). Xavier au (1) 
60.83.35.66 le week-end. 


Vends AMSTRAD CPC 464 coul. + lecteur dis 
quettes + 300 pgs + 4 livres + nbx docs et maga 
zines, neuf 5000 F. Eric GLAISE, tél 
60 28.40.63. 

Achète AMSTRAD CPC 464 avec ou sans mon. 
Max : 1300 F Tél. 99.46.10.76 H. LE FORESTIER, 
1, rue des Minquiers, 35800 DINARD 
CP 464 vend ou éch. revues (val : 2000 F) + 80 
prgs contre lecteur DD1. Patrick ROBBE, tél 
21.51.63.08 (liste sur demande). 





Vends CPC 664 monochrome, complet : 3000 F. 
Tél. 85.25.09.65. 


Monte inv. de drives 5°’1/4, pour charger ts prgms 
à partir du 5'’1/4, Paris seul. Ts r. DELBES A., 101, 
r. Edouard-MAury, 94120 FONTENAY-S.-BOIS. 





Vends CPC 6128 couleur 4 imp. DMP 1 + dis 


quettes 


6000 F. G. BRU, tél. 43.57.51.76 HB. 


Vends AMSTRAD 6128 coul. + impr. + joystick 
+ disk + revues, tbe. M. AIRAULT, tél. 
64.48.91.70 (HB) ou 64.41.65.21 (dom.). 


Ve Sharp PC-1401, ach. oct. 85 : 650 F. Oh 








Vends AMSTRAD 664 avec moniteur couleur 
4000 F. Tél. 31.98.48.93. 





Vends CPC 664 couleur + livres + joystick + 
magnéto + 30 disques de logiciels : 6000 F à 
débattre. Tél. 60.28.06.12 le soir. 





Vends CPC 464 (05/85) + DDI (05/86) + DMP 
2000 (01/86) + environ 400 prog. sur K7 et dis 
que + 3 gros classeurs de modes d'emploi + n° 
1 à 15 de CPC magazine et Amstrad Magazine. Prix 
ferme et définitif : 8500 F. Pas de vente séparée ! 
merci. Tél. 47.93.24.82 après 20h. 


Vends cause changement micro livres neufs pour 
AMSTRAD CPC à moitié prix, liste sur demande. 
Tél. 50.71.43.27 HB. 





Recherche club ou organisation dont le but est d'ini- 
tier les enfants à l'informatique. Anne STAUB, 24 
rue Léon Frot, 75011 PARIS. 





Vends Mirage Imager. Transfère K7 à disquette à 
100 % pour 464/664 : 400 F. Pascal LESENNE, 
76620 LE HAVRE, tél. 35.46.52.90. 





Vends SANYO PHC 285 + câbles Péritel magnéto 
+ livres. Gilles BEUGRAS, Le Bourg, 71230 SAINT 
ROMAN SOUS GOURDON. 

Cherche CPC n° 6 déc. 85 pour prog. Cherry Paint. 
M. F. GUICHARD, 12 place du Champ de Foire, 
21560 ARC SUR TILLE, tél. 80.37.21.32 





Vends cons. Atari 800XL + lect. cass. Atari + 2 
joysticks + 3 livres init. mat. neuf, le tout : 1000 F 
(idéal pour déb.). Tél. 42.02.72.20 après 20h. 





Vends AMSTRAD 6128 couleur + adapt. péritel 
+ doc. + 200 logiciels + joystick, le tout : 6500 F. 
Tél. 73.37.74.31. 

Club par correspondance, entraide du débutant ou 
confirmé. Trouillet la Bégère, Larequille, 03310 
NERIS LES BAINS. 





Vends CPC 464 coul. + 70 jeux (Winter Games, 
Commando, Cauldron, Crafton & Xunk, etc.) + 
livres : 4500 F. Tél. 54.36.11.34 le WE 


LES PETITES ANNONCES ET LES MESSAGES 


Attention, vos PA seront mises sur le serveur avant la parution du journal 
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Coupon à renvoyer accompagné de 3 timbres à 2,20 F à : 
SORACOM, La Haie de Pan —- 35170 BRUZ 


Gagnez du temps ! Sur Minitel 36.15, tapez MHZ 


112 








Vends CPC 464 couleur + nbx jeux + utilitaire 
Basic, CPC en bon état : 4500 F. Tél. 48; 26.99.10. 








Echange moniteur mono GT 65 (12/85) + AMX 
mouse (7/86) contre monit. CTM 644 coul. M. 
CHENEAU, tél. 45.33.76.69, demander Alexandre 
après 18h. 





Vends CPC 464 coul. + 100 logiciels + 1 joystick 
+ Slivres : 3300 F. Tél. 70.45.66.67, demander 
Thierry. 





Vends CPC 464 mono + logiciels + livres : 
2000 F. Tél. 30.61.61.16. 





Vends ZX81 + mémoires 16 K + imprimante + 
livres : 600 F. Tél. 39.71.87.67. 





Vends CPC 464 mono + joystick + cassette azim. 
+ assembleur + manuels techn. + jeux + livres : 
2500 F. Tél. 39.71.87.67. 


Recherche possesseur d'une Seikosha SP 1000 
CPC avec Tasword 464 car problème d'adaptation. 
M. GIZARD, Lycée H. Friant, 39800 POLIGNY. 
Achète K7 de jeu pour AMSTRAD 464. Bertrand 
COUSQUER, 29221 PORS-GUENPLOUESCAT. 














Vends AMSTRAD CPC 464 moniteur ci + joys- 
tick + nbx logiciels : 3500 F. M. LE DANTEC, 
95600 EAUBONNE, tél. 39.59.64.30. 





Stop Affaire : vends cassette d'azimutage de têtes 
+ en cadeau 2 logiciels au choix. Le tout : 100 F. 
Tél. 64.37. 58. 10. 

Vends CPC 464 mono vert + 5 logiciels (3D Fight, 
Echec...) en super état : 1900 F. Tél. 42.03.73.87 
{le soir) Paris. 








Cherche logiciels (jeux + utilitaires) + imprimante, 
prix raisonnable, réponse assurée. Frédéric DELAY, 
Le Limon, 84380 MAZAN. 

Vends ensemble ou séparément : 464 couleur : 
2800 F. Lecteur DD1 : 1300F, 8 livres Micro Appli- 
cation, valeur 1152 F, prix : 500 F. Imprimante 
DMP1 : 1200 F et 20 disquettes. En cadeau - 30 
logiciels jeux et utilitaires, valeur 10 000 F et 
manette de jeu. Tél. 40.97.22.08 samedi et diman- 
che. 








Débutante cherche contacts sur Cherbourg où envi- 
rons avec possesseurs d'AMSTRAD 464. Tél 
33.23.10.87 (Pascale). 








Vends pour CPC 464 jeux originaux : Airwold : 
50 F, 3D Fight : 60 F, Batman : 50 F, Ping-pong : 
40 F. Dents de sa mère : 60 F. Fabrice au 
42.45.93.21. 





Vends console de jeux Intélévision avec 7 jeux : 
900 F. Tél. 88.38.30. 35 après 18h. 





Vends CPC 464 + K7 : 2000 F et DD1 + 15 disk : 

1600 F. Jeux : Mirage Imager : 450 F Synthé fran- 
çais : 390 F. MP1 : 290F Livres 17610 80 %. Tél. 
76.68. 18. 112; 





Vends CPC 464 mono + 9 dates + interf. 
série + 13 jeux + Trait. texte + utilit. : 3600 F. 
Dept. 95. P. FERRIERE, tél. 34.71.19.67. 





Vends cassette de jeu pour AMSTRAD CPC 464 
Sorcery et Ghostbuster à 150 F les deux ou 80 F 
l'un. Eric BOUQUET, tél. 48.22.35.25. 


Vends CPC 464 + DI1 + AMX + js + softs : 
4500 F. Tél. 39.76.21.48 après 19h. 


Vends AMSTRAD CPC 6128 couleur avec/sans 
imprimante, compatible DMP 2000. Prix intéres- 
sant. Montbelliard. Tél. 81.98.24.05. 

Vends CPC 464 r mono + © K7 démonstration + 
guide + revues : 2400F. Cauldron : 75F. Master- 
chess : 80 F. They sold a million : 85 F pièce. Tél. 
41.95.30.92. 





Echange K7 pour CPC 464 (originaux) : 3D Boxing, 
Sorcery, 3D Chess, Salut l'Artiste.. contre autre 
K7 origine. Frédéric au 74.92.54.51. 





Cherche correspondants CPC 464 + DDI. M. 
Patrice MALBY, 1 rue Marcel Royer, 92230 GEN- 
NEVILLIERS. 





Vends CPC 6128 mono sous garantie, DBase + 
Multiplan + Pascal (Hisoft) + nbx jeux : 4300 F. 
Tél. 45.92.81.25 (dom), 43.04.99.35 bur M. 
TRES. 

Vends lecteur de disquette DD1 état neuf. Achète 
un lecteur 51/4 (marque Jasmin de préférence). 
Tél. 40.31.51.58 après 19h. 











AMSTRAD 6128 coul. garantie avril 87 + jeux + 
traitement texte Textomat + Calcumat + 6 dis 
quettes + CPM, état neuf 4900 F. Tél. 
45.74.29.96 le soir. à 





Vends 6128 coul. + 3 joysticks + light pen + 
synthé Voc1 + boîtier disq. + 21 super jeux (Aigle 
d'Or, etc.) : 5500 F (valeur 9500 F). Serge au (1) 
42.67.90. 42, 

Echange synthé AMS SSA1 (06/86) val. 390 
contre logiciel(s) utilitaire(s), tableur, transfert texte 
pour 464 + DD1. Tél. 60.03.34.04. 

‘Vends AMSTRAD PCW 8256 complet, garantie. 
Prix intéressant. Tél. 73.93.41.26. 

Vends K7 originale Amscalc (tableur performant et 
facile d'utilisation). Valeur 245 F, vendu : 120F. 
Tél. 71.59.77.02 (sam. et dim.). 

Vends CPC 464 coul. + livre + logiciels : 3300 F. 
Seikosha GP 100 1300 F à débattre. Tél. 
23.68.13.10. 








-Echange photocopies CPC n° 2 contre idem n° 4. 


Cherche contact pour 6128 région 95 ou environs. 
95560 MONTSOULT, tél. 34.73.91. A2: 





Lorel vend son moniteur coul. 6128 saut sous 
garantie cause double emploi. Urgent : 2500 F. Tél. 
43.70.40.96 le soir. 

Echange cassettes : Alien 8, Combat Le 1815, 
Knight Lore, etc. (originales). Demander François 
au 31.95.09.69 entre 17 et 20h. 








Vends logiciels AMSTRAD cassettes ou disquettes. 
Tél. 92.54.14.91. 





Vends pas cher K7 état neuf : Sorcery, Space, 
Moving, Skyfox, Mabase, Mandragore, Amlettres, 
Tennis 3D. Tél. 78.26.31.52. 


et Microstrad. Daniel VITTET, tél. 48.77.23.85. 


Vends disquette de jeux d’origine : Cauldron : 70 F. 
Beach-head : 80 F. Cherche contact assembleur. 
Tél. 77.31.26.37 HR. 

Echange moniteur vert + 300 F contre moniteur 
coul. Tél. 33.48.09.18 en soirée. 

Possesseur 61 28 cherche correspondant pour 
échange divers (jeux sur disk, notices, renseigne- 
ments). Tél. 47.06.54.69 Olivier. 





Vends CPC 6128 ol + DMP 2000. Bernard 
VABRE, 309 rue de Marseille, 34100 MONTPEL- 
LIER, tél. 67.40.47.46 le soir. 








Vends 464: mono état neuf + 7 livres + revues + 
100 logiciels : 2500 F à débattre. Tél. 64.29.54.21 
après 18h. Demander Eric. 

Cherche CPC 128:sans visu prix aimable. Tél. 
75.01.58.35. 


Vends 12 K7 originaux à 60 F l'une ou 600 F le 
tout. Tél. pour renseignement sur les titres au 
46.71.96.51 demander Luc. 

Echange 10 disquettes 3'* CF-DD neuves, valeur 
790 F contre 3'*CF-2, 1 pour 2 ou vends 550 F. 
Sylv. ROZE, 2 rue Fauvette, 59350 ST. ANDRE. 


Vends CPC 464 couleur, 128 K, lect. de cas. 
+ nomb. logiciels. 3600 F. Veds ord. Tandy, mod. 
1, niv. 2, 16 K. 1200 F. Tél. 93.80.81.46 

Vends bible Amstrad 464 (m.a. n°), état neuf, 
cause double emploi, 200 F + port. Chevreux 
Christian, 84, rue Royale. 49250 CORNE. 

Recherche Amstradiste pour échange de logiciels 
dans la région nantaise ou Nantes. Tél. 
40.94.23.67, après 18h 








Vends imprimante DMP1, état neuf + scriptor. 
1300 F, valeur neuf 2600. Y. Treton, 61320 Ste 
Marguerite de Cges. Tél. 33.27.22.04. 


Vends 664 mono, 12/85 + joystick. 2500 F à déb. 


47.94.05.84, après 19h, STEF, cause achat 
6128. 

Vends CPC 464 mono + DDI : "nBX Jeux 
+ utilitaires + livres + revues + portection cla 


vier. 4000 F. Tél. 44.25.07.03, après 19 h CREIL 
(60). 





Vends ordinateur aquarius + console 
+ 2 manettes # magnétophone + livres 
+ nombreux jeux, prix 1500 F. Tél. 79.09.70.12. 
Vends Commodore 8032 + drive 4040 + impr. 
4042 + syst. expl., le tout 6000 F. J. Varin, Hau- 
tecourt, 01250 CEYZERIAT. Tél. 74.51.81.82 





Vends MO5 + c.optique + joysticks + magnéto 
K7 + logiciels + cartouche (pictor) + adaptateur 
joysticks. 2300 F. Tél. 48.45.05.92. 





Vends AMSTRAD CPC 464 monochrome + 
quickshot Il + nombreux logiciels (Cauldron 2, 
Runestone, etc.) pour 2280 F. Simon au (1) 
39.56.22.44. 

Vends CPC 464 coul. + DD1 + synthé + joy + 
30 prog. jeux + Datamat + Traitement + 
compta : 5000 F. M. DUFAIGNA, tél. 43.38.01.16 
HB. 








Vends PCW 8256 rs en 8512 + Re filtrant 
+ quick maling + 10 disk + diver : 7000 F. Alain 
MARTINEAU HLM 721650, tél. 43.40.96.94. 


Vends lecteur 5°’ 1/4 AM 5D, acheté en août. Tél. 
86.28. 21. 31, le soir. 

Vends 464 vert + joystick + 20 jeux + manuel 
+ revues + livre language machine. Decour 
Patrice. 46.78.94.34, après 19 heures, 1800 F. 


Cherche contact sur Ajaccio. Tél. 95.23.43.06, 
après 17h, demandez SEULE 





Vends vraie comptabilité (6500 F) ainsi que des 
programmes compatibles. G. DE CHEZELLES, tél. 
(1) 45.78.88.24 Paris 15e. 








Achète photocopie Cherry Paint du n° 1 à 9. Tél. 
55.88.31.45 entre 19 et 20h. 


Recherche moniteur monochrom pour CPC 6128, 
prix raisonnable, échange possible contre. Louis 
Gaggiano. Tél. 37.83.66.15, Epernon. 





Vends pour AMSTRAD : disqu. Datamat, Texto- 
mat, revues CPC n° 1 à 12, nbx n° Amstrad Mag. 


Vends 54 logiciels pour CPC 464, état neuf, prix 
différents, urgent. Tél. 78.60.03.17, le soir. 
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RU); | 24 07 Le: 
+ port 10 % 


Pour conserver vos revues intactes 


58 F 
74F 


[}] abonné 
[} non abonné 


[] La pratique des imprimantes 
Michel ARCHAMBAULT 

Cl Apprenez l'électronique sur AMSTRAD 
Michel ARCHAMBAULT 

[1 4 exemplaire AMSTAR n° 


LIVRES | 
+ port 10 % 


95 F 


95 F 
10F 


Communiquez avec AMSTRAD 
D. BONOMO - E. DUTERTRE 
Jouez avec AMSTRAD 
KERLOCH 

Programmes utilitaires pour AMSTRAD 
Michel ARCHAMBAULT 
L'Univers des PCW 

Patrick LEON 

Cassette 

Communiquez avec AMSTRAD 
Disquettes 

Communiquez avec AMSTRAD 
L'Univers du PCW 

Patrick LEON 


85 F 


119F 


190 F 


250 F 








150 F 


A:TOTAL 


B: PORT 10% 


À + B TOTAL GENERAL 


NOM : 


Adresse : 


| LT 8,10,11,12, 13,14, 15, 16,17, 18 


| [J Hors série n° 1 avec cassette 


TNT | 
+ port 10 % | 
| CASSETTES 
Franco de port 








REPORT TOTAL GENERAL A + B 


ANCIENS NUMEROS 
Franco de port 


Attention, n° 1 à 5 et 9 épuisés 
OÙ 6 24 F 
25 F 
7 28 F 
47 F 
LT Hors série n° 2 sans cassette 13F 
Entourez le (ou les) numéro(s) commandé(s). 


1 cassette représente un numéro 
[] abonné 

[|] non abonné 

©} abonnement cassettes (11 n°) 

Je commande les cassettes n° 


DISQUETTES 
Franco de port 


1 disquette contient 2 n° consécutifs de CPC 
— Disquette n° 1 comprend CPC 1 et 2 

— Disquette n° 2 comprend CPC 3 et 4 

— Disquette n° 3 comprend CPC 5 et 6 

— Disquette n° 4 comprend CPC 7 et 8 

— Disquette n° 5 comprend CPC 39 et 10 

— Disquette n° 6 comprend CPC 11 et 12 

— Disquette n° 7 comprend CPC 13 et 14 

— Disquette n° 8 comprend CPC 15 et 16 


45F 
55F 
450 F 


| — Disquette n° 9 comprend CPC 17 et 18 


110F - 
140 F - 
600 F . 


[] abonné 
[] non abonné 
[1 abonnement disquettes (6) 


| Je commande les disquettes n° 


TOTAL GENERAL FRANCO 


Port en sus 10 % pour envois par avion 


Prénom : 





Code postal : - 


Date: 





Merci d'écrire en majuscules. 


MVillé: = — 


Signature : 








Ci-joint un chèque libellé à l'ordre de : Editions SORACOM. Retournez le(s) bulletin(s) ou une photocopie à : Editions SORA- 


COM - La Haie de Pan - 35170 BRUZ. 
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LIRE POUR S'INFORMER 


Bretagne Edit' Presse 

met un service vente par correspondance à 
votre disposition. 

(Vous pouvez consulter la liste des produits 
sur Minitel 36.15 — MHZ) 


RES LE. 


Traité radio maritime 

de ROGER 

Un livre pour vous aider 

à passer la licence radio marine 
Transat Terre-Lune 

de G. PIGNOLET 

Du rêve à la réalité 





Technique de la BLU de G. RICAUD 
Concevoir un émetteur 

expérimental de P. LOGLISCI 
interférences radio et télévision 

de F. MELLET. Comment y remédier 
Propagation des ondes 

de S. CANIVENC 

Tome 1 


















































Tome 2 

La réception des satellites météo 
de L. KUHLMANN 

Les synthétiseurs de fréquences 
Télévisions du monde 





Recevez un exemplaire 
pour vous informer sur le contenu 


CT Astrologie Pratique (mensuel) 
CT Vision cinéma (mensuel) 


de P. GODOU -— La réception 
des images lointaines Informatique 

Communiquez avec ORIC 

de D. BONOMO et E. DUTERTRE 
L'ORIC à nu 

Communiquez avec ZX81 

Jouez avec MO5 

Plus loin avec Canon X07 














Collection de poche 











La manœuvre 
du catamaran de croisière 


NOM : Prénom : 








Adresse: - 











Code postal : Ville : 








Date : Signature : 


Merci d'écrire en majuscules. 
Ci-joint un chèque libellé à l'ordre de : Editions SORACOM. Retournez le(s) bulletin(s) ou une photocopie à : Editions SORA- 
COM - La Haie de Pan — 35170 BRUZ. 








